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BASIC7D9'^=>9"CDM 


-IpC 6Q tK -f > h- 

■> B AS I Ci:J:5 7 °p J+cnfti&t 

o 7°P^‘7A(7)flfIE*>S 

0 
























% l Sd basic £ 




i-fti*-K«fc »)ZfccoJ: 7 fc*-A* LX^TT£^\ 




(V *->*-) £ffLfc£fc/,fc:, Blffitl±»c<7)J:-it*^?<iSLfcta. 


PRINT 1+2 

3 <- g&zziz&Tjk Stitt. 

OK 


ISIflUw^ J: 1 iz^-Atl Lit. 

PRINT 150-50 
100 
OK 


i < LI i i< tb*Sr*'ofc Al± 

00QB0D000QB0 


^fcV'All (2) ^ffLTT^'. 

n tifflffiui:') iLfcfc. 

1?'nit'^‘X)J$C1$£lZ li 4&"$* U ^ ^ ^c 

lit, T* x- ii $$ su 4'isa* & >- 
PRINT 5 + 4 
t V'7 Ittfr, 

li#> •) i-tf/t. £'fffLTT?v\ 


£WlX^£l fcia. LLffllX 


2 ) *) S+. 




2'T h T:- Kic J: * 7 °p ACDfEJSt 


T, BASICc7)^4r^!>ioX'^i>PRINT^4r^1SoX^i Lit. *—.*- Krt'k 

^f-AAtSi, t Ltz. 

ib x i zn£ u* h^E—K (itS^T®) 

BASICW^&^Lotc&^T^iT. 

•IftLttt&L, L 0 £ T. 

^<7)7°o 77 AX— KR: «t S7°o 77AW|^) T(±iS 2 ffiX'^HI'^ X It L, C-1 T'ii 7T 
w ? h +— Ktc i I>Xd 77Af) l £ L J: 7 . 
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PRINTtfr^fcJS') it. lkcr>£ilz*-At)l£t. 


PRINT 3*5 
15 
OK 


t 




PRINTS*fflV'T, 



#ll 


f 

W'i 



Ba^s, 5#®<0#*{±-tii^fLl56om, 168cm, 172cm f-t. 3A^W#Ili 

7 i)\ 


_ J 


PRINT (I 56+168+172)/3 
165.333 t 

0K i 

[± tthXco^cnj^^zibU^^TLfz^. 

^ft-Cfiifr^-c7Mi£ffl±<7)£ £ 0 fzoi'Ti tsb£ L s. 7. 

• PRINT £ tth 

PRINT^Ii, ZnbtlzS: t< stye J:')!+!? Zn&fki r it ^ lc r" t X-/V'fjl 
® & on^-TT. 





( 



PRINT 5$ 

v_y 


• ikcoijcnvh') £-f. 


tm ( + ) .+ O/vx) 

(-) .- N^x) 

SIP (x) .* (7X7 u XX) 

&* (-S-) ./ (7777.) 

A:£fp= .A (■>$>£ tftz) 

m £ .MOD 

BASICt^'4 *#£■?■ 


• £tz, PRINT^r^-co^XiglS^lT “(7t-f-y 3 >v-7) TWiZ < ? b t, lk<r>£ 

7 &"£T-x>-R tR£ fr 7 w ST. 

PR INT"OHAYO" 

OHAYO <-“( X * — T — > a >-7— X ) tfflj llA;'p<7)Tt'i- : 

OK 

• PRINT^-frOtt^t LT, ? (JSMff) TfitVt. 
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? 2*2 
4 
OK 


» * -rV. 

f - il E,l?* —-— \ 

a#, rxj, r&fricii rxj imx 

■$<nx. .y ? X t }g|S| L *?t V' 3 £ , m#<7) r-r Jli T' 4 X 7°U"f <7)*+= f"$ S ^ - 

ztimr* (7z? >i x^)j r/(x?7ya)j 
£tz, f5!]i.ii'4 5 (4<7)5S) £*#iTA { , %<7)tz 

t) 4 A 5 i 

L___ 7 


£-£, a«l4rtH(Ui**i, *<7){6£f£TM£-5 t ^ -) 3 i 

It £ < **) £1\ 

\k<r)\miz<n £ -5 frM*£ t») ffio fc t cotT. 


~ 

-[ 1ylJ 

a = (5 + 3) 2 

, (6 - 2)X a 

b ~ a-10 

A 


fcltgl, acofjti 

I___ 


LET A=(5+3) A 2 
OK 

LET B= (6-2)*A/(A-10) 
OK 

PRINT A 
64 
OK 

PRINT B 
4.74074 
OK 


fr#<7)g£A'vTCA 

A&iS7R-£J: 

A^Oft 

B 

Bcofit 


• LET 

LETifHHi, tf:U*fc< Sv\ £v^fc^-cT. 

—{* -i 

LET ^3&£ = 5$ 

_ ___ J 


&L>\ LET(±®n&*MtgT-t. 
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/■ - - 

BAsict'iebns =<7>ge-tii, rftA-^ij 

£&il±, (cEtt L-Ci- < tmTh '), £&£il±, 

^mTT't. 

T'l'A'b, C = C+ 1 coitJSfcfi [tiWClz 1 £Jjp;C, -?■ <7)fit$• IffLv % C^ofill; L4‘ 
zilh £ftA:Sct inf-AT^I". 

v_y 


X-f 7yH'Ii^y-y?rfx.X^?i 


£A, W±7‘n/7Af) tlii-3 •■/ ■vf-^ONlcL't 

JiL*, E-oo-tfC#^®®* 4 '*) 0 it. ziconffiy 
tlVCltit, t, ¥Lai$ixTV'|,*^cofe^'tATiJ^TT?v\ 
ffctc, ^coj; 7 lz% — Kt) LTATT? <'\ 

CONSOLE ,, 1,1 
COLOR 4 
OK 

* L A* LT&TT£''\ 

0 £ Ltfa. 

-iconic, COLOR^t«V'-C#c^*»5E1-6 - t (c«t ») iBS<7)fe^^x^> i i# 4 "C# 11 . 



ft £>, CON SOLE pp^- (c o v ■> Tii ^ 6 MTim Lit. 
'ttlX’lUBctyJO&fcMLi L i i. 
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COLOR 7 
OK 

$*>, ^-A^IT^TT^. 

WIDTH 80/25 
OK 

it. 

WIDTH 40/20 
OK 

9i£tt£, 

if-5-CLfc**. JhKtzlit'thCO jfflfflj&'ftfcA 1 ) i Lfc*\ 

~60j; 1 lzmWlzii7f;T£ it<7)T, £,fo 

•StR-CtAi. 

•WIDTH £<* 

WIDTH MlS^T & *^<7) frffc £ ffr* 5 c £ § ^tT. 



WIDTH Jllli ') it. fotclztf^'*' £IH 

®ffifo LTT£ v\ 
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—C7)t? L ® "f’ tw 


t. A £ £ LAA\ -£#A>f?iJcoil <), IW)*;t1*fc*-A 

t)t&z t WX& iU;*\ Ztikh t”-i (-'•? T'Hf—co^t £ & 1:17- • ^ ■y-fe-x# f lt 


^tiAliv'S U^‘. 

xi>^tx-it, mm>'$>*-*>■?}£utairzt\z* nmt^^xztii itz. 
LfrLtcfth, (?f-T-x 3 >) <7)ie-f-S-4SL^T, 

A* L^ItA^b l*^«rl»liti-CLiofcfcAt, *rfcb&‘£>•*>») it1-<7)|±ffl£ tit 

U'^M><L£ LAia. 

•?■ C.A"A >1 X'(i, &*-AfjlXi'Z>nW££frl, 


L J L <t a . 


INS 

DEL 

’ T 

' - 

—> 

’ 1 


(±, f£') fl£E<7)A<6lc#$S£^—Sr^'C't*. 


^•iSli Lit>S L J: "7 . 

Ztix-li, b&tmtiX, lkr>l: 7 iz*—^t)lXA.XT 2 '>\ 

tz AX (2) ('>*->*-) li*Afl>3fr^-CTSv\ t> LBSdff LX L t ntztjlt "/-f 
-wftffiC^otLiv^ LAia. & a —ISABEL AT $ v\ 


CALAR 4 


t 


t} — V)V 


t}-v/Ult 4 <7)1- <• &5TAM IX t tiz. 


CALAR k % — 4 > LTLio AlRAtA, (i COLOR £ A* L A** o A £ L i t. 

flliEAA') i Li i. 

® ftT 


£ 6 Off L, 5fc9l#X 2 SgcDAd# —1\ 


© Kj&»A> 0£ 1 0ff Lit. A*»OU**), * LA#-Vn^Rfcc^^L 

<7)pJrd # i L A. 

© Lte-£<0£ £~C , v>^-C , 1~a > £> [ -> ) £l@]ftL, <AA>flfIE{$5tA>A AJfeSd# —V 

® AtOdII1-A46, O^lElffL^t. AAOCfh 1 ), # —V ;H± R<7) £ A 7, d $ A 
V'41\ 

© 4:0 £ LA. A 

£1£o A^IE£fiX tzViX 


^<nmxii, |5 ]-ft d i> It & {if IE A" L A *> A> 


t. 


t 

1 ' 

INS 

DEL 


CAflJ ffl)£A"1\ 


, PRINTS t £ LAJAcoj: t dffLALS^S LA. (f^T) (i £ Xff L A ^ i X 


A.) 
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PRI IN 


ij — 


£7, ti — V >l'UNCD'g.'&T£MlX'''£ 1~. ^SliPRINt^r- 

Ziy£im~iEl£ l i 7. 

® 


■'i > L^IRT-fla. 


DEL % — £ 1 HftLi't'. I A { t> &L>', t — V iH±3l $ Nc7)pjr(- 


13:lo"!+ b It (DEL) (c £ & b •) £ t. 

© PRIN i i '), .1 tlX*l$JEfr'%*r 1H tz<7)X', 

£ 1 Hlff L, NWklzt-Vsi'Z foment t. 




PRINT 5+3 
8 
OK 


ifcji INS T"t. PRINT5 + 3 £J¥* 7 t LT, 7 (cff IT Li Lfz. 


PRIT 5+3 ■ 

*— i]—V)\s 

ztiTtnimiiix 7 . 

£5E]J?L, ft — V/'U^T<7)P/ft-'fiS'0'(ti©. 
* luff Lit. (BiffiSEftli* n UtA,) 


© 


INS 


) ttALfcvvfc3=N£ 1 Hff Li©. I tTWlBItN^Ai) £ Lfcfc. 

#-VM£5l£1tL£Te)f9rlztiLXrmf>tL, ( INS J iz £ &WAV*jm%ttWAz 
*>*)£-*-. >ZtWC££t. #AT)**-7f tij-V)\,<n$L 

LlcJ: 'U7ioii£-f. 
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H 2 tn 7 p ^7 AWfNEbUfT 


#SlgK*li, BASICS#*) £ Lt, 

-coTM u- 7 h -t- KT(±, *-A*Lfcfr*Sr*0*-e+<-U*fTL’C, SPJ1(-*S*£I#& 
2 Lfc. 

•L^T"^ w 7 Y*- K-Cf[ff-rsctl±, -f 7 IJ -y h *<*>>) iirtf, %<r> 

fcffl, lilt i 7 %Z t £W*i*ffS-£fcV'Ji£-M:, *-A*L*J+fUffcfcT, 

^«3SrSSt£-*ta. 

ifc, d«o«fc 7 AIBloJf— 

?£4f $ -b 4 t *'"C # 2 b-A. 3 > b° JL - 7 till if t Tiz %SU^ fcSfili, AfS IZ t 

o f ffiflj £««£ -otzfrb T"t. 

3 > b'i — fi^-c 7 )^)® £ Lt7’n 77A^'ot/- 

«A£-i±£;ttft(£, #>il±3>'t , a-^)5^(?)'/o77AI:ftot, ii < iEffitc-fPDtTttt 
*£!t 7 A £A<T£ Sc7)f'L Ala. 

^Tl±, 7 t/toco^v^-ci^S^n^^A^E- K(W^flfrfl 2 )'e< 7 > 

7° a PtlcoKfSL^t. 


- c £ li 1-} 

^'•f h b — K 

d*ii±, HHwdMJ-fciirast, tztfHiz*iiimfTi-&wa; 

Tt. %<r>Wst)'g 0 <7)1+11^, K1t'f6'JZ'^<7)t ^ t co|±, f'f V? F -€— KT-^fr£-b 
J1\ f'f 1/ 2 K- KTii, lfrfo*frL-CV'< <7)-C,7’p7"7Ali7b U t»0 4 
-b-A. 

ypr/^Ab- K 

ACOb-KTti, 1"<*fcfc-$-Sr^frb:T,7 b >) IdeitL i-f. T'-f^b, *S*)d®<7)ifr 
4r* f *4-oT, lo<7)®a^Hi^biii> ’ £{ct >) £t. znfo&nMi 0 v rv°n 
7"7 Aj T"i“. 

7°a /7Ali, /t'J {CJWiT(c^bTv^(7)T", 

£ 4 t. Z.co&wr'i u 7 h -t— K i St-') 41". 

I_—' 


7“o f7"y A^-fES 


BASIC wrfM-Sr, ^<7)±#T''iP^(cH^Tl-|>^-ri±t <, V'of^7n/7AiUiettl> 

7*0 /7Ab- Kfc-fSKfi, £'<7) 4 7 d-flUf 4 V'(7)fL J: 
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*n?lt& L J: T . 


a = ( 5 + 3 ) 2 


b = 


( 6 - 2 ) X a 
a -10 


£If#l, acofii b <0 {!:£?)< sb&£ ^ 




« 1 In TEE I-^ u ? h^E- Kt'H^rLTv^-tia. 


7°n T'vA^e — Kfli&tfOj: 7 fc&') £ I - . 


Z' 

N 

NEW 

3 > h°ji— ? U'E*. ^ i 

10 A=(5 + 3) A 2 


20 B=(6-2)*A/(A-10) 

^)l« 

30 PRINT A 

("7°o /7A) 

40 PRINT B 


50 END 


RUN 

«- 

64 

*- A<7)fi 

4.74074 

♦- Bcoft 

OK 


V 

_y 


^c7)-/o^7Af?iJI±, JfSl®<0|«IjBtElt'Ci-* f , T'n/^A'E-KlctSfcft, JTff# 
5fr*)fc*£ n > 7"? Atom 

ffltRUN4r4-£*-AJJt&ztlzJ:')mfc4r'bjl> t &fT$n, il!:A, 

7 °n rvAOUlTli^-T L i 1". 



*#* 







___ J 


• BASICS &7°n 7'7 Affti, 7 i-itfU±'4‘ 0 £-ti-A. 

• 1 165529 

•ff##!*, #-§-<7);£*'£>fir 

io ft £ "t". 


• NEW^OTi fc«> 

X * U ±<7>7*n 7'7 A£|f*!_ i-t. 

-( ft}- 

NEW 
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• END^-^-toi t sb 

7 °n £-y-if. 



*#* 


( 

A 

END 



v_ J 


• RUN & bub 





f 


A 

RUN fr#-1 


V 



J 


• frlM? £i§5£1"2> i, f cofr^ittr*''#? J ') if. 

• #ii, -*'h3v'*T#-S-a‘fc*fr£i&rt£1\ 


7” o 2°-? A (D^.7J\ 


f, ^iJfltaotk'SRi), if. 

ISLT^i U 3. 

if, Ulcfn77A7ieif,£ftf^§75ilgLTAiLj: -5. 
aftAA?hf^57’o/7A^ iffiffi{Cf|^$^|>fOfiLIST&^£l$v>if. 


LIST 

10 A=(5 + 3) A 2 

20 B= (6-2) *A/ (A- 10) 

30 PRINT A 

40 PRINT B 

50 END 

OK 


RUN t % — Kti LTT?^. 


RUN 

64 

4.74074 
OK 


[ 5 ]bfef: 7 '|#UTli L It. 


• LIST urtnn it *> 
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J 


—If s *]- 

LIST Hgtefr##- 


• TnAvAt^T^HffiftTlST. 




<7)T"L/A 

M^iKL^ffT# 4ii^n/7A 

£¥SL£Lj: 7o 


MfijpJkg’Cl T 7^ 
f^tt^Dfl^ttiikg^ #ftcm — 110cm 


-¥-iS^-A*LT^£ L J; 9. (ff#^60<7)END(^£ A^? LTzh t TSTOPfrff LTT 

?v\) 


NEW 

AUTO 

10 INPUT "*7i";N$ 

20 INPUT "SOfar 1 ;T 
30 R=T-110 
40 PRINT "*?i= M ;N$ 

50 PRINT M WWa9=";R 
60 END 
70 
OK 


■7°u / 7A*^i*LiLfc. L J: 7. 

E^?*£fca6tl±.RUN -CLfcfr. 


RUN 

t?i? 


■ 4 

L 


ti — viv 


RUNw^wAI] 


B#-Vn^L*MlTV'ST. c:*U±INPUTffr4J-£IHTIT, 

*>&£<?)£ Air Kt^ATLT < 

&4rT^£«j£*-A?jLT.A-CTSv\ 

£ HU 1 ± 3T?T t, 4 -f--XTX' i> t>' i v' i ■& A . 

£8il£*-A*j-t!> t, BPffitJfcOINPUT^t iSAjjfiHb L 4" f ) ST. 

RUN 

t?i? <th9-ffa , 5 

! J'Jf s’?? ■ 

t-* - V A 
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RUN 

*71? UhO-TfO o 
i/Vfam 167 
t^x^f-O-ffoO 

a0= 57 
OK 

.m-e, ut •)i itz. ^izt i±, 

£ RUNttliUil & L V' o - t T'-f. 

MLt-R U N $?<%■$; A — At) L tT£ v\ 


RUN 

*7x? 


Acoit»*<f -§* 7 Tth. mramzix&xT2''\ 

• AUTO^<7)itiO 

gi^U !?#-§-£ film L i -t. 





/* 


A 

AUTO 




_' 


• L, £otti:v'£ it. 

• INPUT to+nit tb 

%—■&— YfrhAtl£tl&T—7&’£$klzAtl£'f. 


-{ -—N 

INPUT CS&W '.l 

____' 


(tt) ( ) P3(±tH&oT 

•iNPUTtta'fcfrSfL&i, r?J vm^sZtiit. 

Ztl\ztiL','X*—\t}2tltz7'—?$:&%.&<nfet Lit. 

•sc.^n^^ti>b, r?j <F>mz-$c$-j\\ 
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- V /-p 

/■ 

*— Cl iro* 




®) ••• ttz, as 

i> '-XlZT^-f 4 HIM tfh '), ftit £ 

*^-C'ESULit. 


^witssBcs- 

. 


(SMsffllcov'-Tii ')7ri/yx - viaT;^#ILtT? v>) 


• PRINT f(ir^tfO»J8, 

% 1 Ifi■T" b PRINTS(cov*T tOT L i L £ *<, C Z. T liitJp $ ixtzmt Uov*TiftBfl 
L £ 1~. 



’ C fc (* 


/■ 



PRINT ^;;^; 


V_/ 


• 5$£18*feffl*< c tfr'TZ tt. ; (-b* nnvj-cE-ffli) i-r. 
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3115 7°n?^AC0i§lE 


£t\ 4, A£#|f Hit IXAttk, iBcBIzMtfZ ti 

Zil-Clt, £ £ lit' cov'd "7 L x i. 

<D STLIST^4-C®ffi{c7”or7A^*^Li1-. 

zcn 7°o /7 A(±! , ^coia(-^'t®J14 1 )ii'C"C^±A i 'o Lfc. 


lO^TT 0 --- 


20 fr 0 -■ 


30 a — 


4()a a ■•■ 


sotfa — 



•rtjgdu 




$riiAni"S^Pir(i, mkfotz f ) T"t8Sv'£-£XJa. 


itJBLfcv^3SiS:BAS I C £*>*.£ 1\ 

PRINT “y>fa ^ = ” i T 


® TCt &&7°o 7'v AdilSnL iT. 

-5 iz^ — Atl Lit. 


45 PRINT "*V*s9=";T 

3IJn* f -J i < SSLIST^Sr^-X^Lit. 

LIST 

10 INPUT "*71";N$ 

20 INPUT "S/yfaO" ;T 
30 R = T-110 
40 PRINT "*7i=";N$ 

45 PRINT "i/yf3l=" ;T 

50 PRINT aO-";R 

60 END 

OK 

RUN 
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MIC, RUNfr<fr£&fi L L‘CA'CT£v\ 

S®7"n/7A?:Mti, fotfi'l?' 7°n f 7 A£{§IEL f £. £ £ff#-f-f'#/§noT>->i 
f fc. 

i fc, WEI i y c v fy^Zlimt 6 z t iz X o f# AT § & fr#-**** <iotUif 
^W&-f'Tf#if. 

f <7)f f>, £ ^fU'&frS^fcA 0 itf RENUMflM^i V'? fiMO&ifr^jWBjfcSfL 

tf'if. 


-I * ^ ^ J-\ 

RENUM 

V_ ) 


RSfc*-Artl.-C*-CT?v\ 


7° O ^ 7 A (7) ft IE 


f o f 7/>.<7){l|IE<7)f±f fcoi^fi tSbXA-t Li?. 

m 3a**sfr<owiF&*HLfcv'^i±, 

fllxlf, ^w3S#fitt#ft-105-Cf *‘$>, *> L £ £(i£"<7)7°n /? 
fn f f Aic^Mf .?>i§£-{i, ifco J: ? tc f— Af f b X 1 1 z% 9 if. 


30 R=T-105 

12 fnfyAtc, ffL < i*Hnfc£iIflnL£ iliPLA 2 o<T)frfM7«9|ifl«0& 

ft^ffL''->fr#-f-(cf fufiv'coff. 

£ #(J£"^45 : fTg^iISpUafAfLC^ 9 if. 


fl&cfcofc&^£ijfifcf §*§-&-fc(i, fcco 2 oof 9 if. 


<D AftLT fcjj] frffLif. 


© fcoTffl^fDELETED£«V'if. 


- 2#* 1-N 

DELETE 

V_y 
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£T, 4 % yT'j±iciei*£ftT^ 6 §RT-t. 

t t u±c7)7°n toffj i;T& 

t, 7°n < MAT Li V'41". 

4 A, NEW^£*frLTLI 31 *Tl-. 

Zcotztb, -E'^(cf&LT#igLSIffi'i) 4-3 irT’o/yAfi, SiJcoifpJrM^ffLTii < -E-lf*'* 

*») 4 -r. 

fLR6*j4‘7°o ?"7 A<x>{$ v> Ti£ 0 fl L 41". 


n 7°o 77A£7°'j y yfflfftjcpp 

y T P v°o 7'7 £®4 fcfi— SB£7°9 > 7 £ri§ L TfflfftlAPp^i" S T L [z 

4 >), «l¥L4 -5 t«Tt. 





/■ 

-- 'N 

L L I ST 

V 

_ j 


• ep^flSIiLISTtSHrTBiffl*^ L^47)L^<[p|LL <x>TT. 

El 7 "a 77 A^ 7 D 7 h , -(f 7 (-fe- 7 ') -tS. 

y T ') |*J[Ci>3>7’n 77AJ, 7o . y h°-f T'-f X 7HB£;iIlT7 o y h° 4 r’ 4 X 7 $Wfc 
(AfSTfLTiiT 7 iv^7 LX)T-t. 

T Tift# £ — ® (A ii -fe-7" £ pf L TV' 41". 





< 


A 

SAVE 

“ Yy^y'^ : 7 7 'f 



_' 


• K 7 ^ 7 '#-tl 47 D .y f-dftWAot^SIlWf-fT, 7 T'f^li 7 'D 77 Al: 

o!ti)^fjT"i". 

• 7 r^^ii 9 y^UrtTT. 

j5iJA(f, A% y T'J±(cfeit£;fiT^I>7 0 n 77vU£ 1 #<7) K 7-f 7*{c Ao Ti^&7 o-y t° 
4 (A-t-7'LX:v\ ttz, £mr£REIDAI£ Ltzt #7>*-A4j(i#;<X>4 7 iz-ttUS 4^7>T 

-r. 


SAVE "I :RE I DA I 


24 


















—u, -t-7"LT^§7°D ?“7 y ^ IJ Uf&frtT&ii^-ii, LOAD^fffl^il-. 





r 

-— 

LOAD “ 

K7 : 77-1 


___^ 


• 77 -f ;u£!J-fe—■/coB#|co!t^^ffIT" 1 '. 

$ #(Ji''b-'/L-rfc^^7'o /7i> “REIDAI”£n- Vth^co^-Xtilt'/kcnJ: 1 iz 

£•') £ t. 


LOAD "1 :RE I DA I 


tz.hx\ r^j 

i i r^tj t \ zi-?'y KJ t (oE?IJ £ tv£ T. 

■ ic. . 7’d/7A“PRINT”, 

“LET”, “CONSOLE”, “COLOR”. “WIDTH”, “END”3f fr'-ltliz&fz») £f. 

■ : 1-7'y K 7°D 7 7 -U ikfcfo h ^ (± b h dR' 0' £ #Ii£ It SiLS$: ff S np^ f’T. 

Ife-C-C # i co-C'(±, “NEW”.“RUN”.“LIST”,“AUTO”,“RENUM”, 
“DELETE”, “LLIST”, “SAVE”, “LOAD” tllz b fz ') £t. 
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%%% tm-ED^D 


W=l MTU, Y 

7A<ol^')^fi:oi't¥il & L 

tz. ±, i^^D77A 

$I£j 1LT, 7'n/7i»M^S$ 
T ? - 7 7 L J: 7. 


^ Si < 7 ) ^ -f > h 


x— ^ 

£ft ‘J il L Tfj *5 :£>£ 














m 1 05 T- $ 1 — !IR<7)fFJ& 


m laiafem-gtst^ffra mm2-\) 

—{ mm<nm.m }-^ 

15ijffli±, iAcoJ: -? 

a /7Att. 


? (.xtir-?) 


■£SSS&^ 

ft 

£ 

Si^#* 



101 

Tt^-? fu* 1 ? 

85 

70 

80 

102 

Tvl 

'ffo^ 

75 

80 

90 

103 

4 *7 9 


70 

75 

85 

104 



100 

95 

70 

105 

x b ^ 

•VXb => 

90 

80 

65 

106 


ij'Vt 

80 

75 

100 

107 

*7 b^ 

9*'s 

90 

90 

90 

108 

* 


75 

60 

65 

109 

-♦f b^ 

7^3/ 

80 

80 

100 

110 

X S x 


100 

100 

100 


© KS<7)£P¥ff^ 


© 

« 

& 
e 
* 

-f 

is; 

^“N 

*5 

(fr) 

(a) x ~ x ttts $nx^6 am it t- 9 £• en^t h fes vt. 

I ~^^WW_ 

• gig, » m%it*ti?ixm&m&titt. 

• g-A<7)r"-^(±, lfficep^l, ^Ep^fcOfalPili: HT^ItS-t. 

• *l±, -S'fK 3 Tim LSI-. 'J'ftffiWW ') »-C, SSIScg^^ £ PP^ l S 1\ 

• £M (10A) C7)|#*f"-^^PP^l/:L -/D/vA^TUt. 

L___ J 



yp£7Afw. 

7°n 7'7l»~C'l±, 10Ac7)'t#*r"—^ L "tfp^ L i "f. 
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1 IS !§?#.£, £!§*#.££ Art L, -g-It, T*^£ 

BtlfU *HS>£ lffUfiU£Li1\ •?• LT, :: ft £1001* 9 i&-f £-»**<■?#*-*-. v°o 

it') & l fr t <£ ? t~ L S T. >&mtM £ 0 T%t t'-k<r>X. 1 1-4'>) it. 


l j+5<ojaf| 







k 

ff 

5 


BASICTii, m , )ML£1%v:t2>fo'frt LX, GOTO,FOR-NEXTA'fl 
E 7aVyAM 

lklzy°a 77Affl&7jil£t. *|&fc7°n ^7A£ A--1G-KJ: •) Aft L, *!tLTA.tT 
£v\ 


f 10 DATA 101,7*97 *09,85,70,80 ,1 02,75T 7 fC39,75,80,90 
! 20 DATA 103/779 3**/70/75/85/104, 0x9" 79*,100/95,70 

30 DATA 105,11*9 t^hD/90,80,65,106,**? fly*, 80,75,1 00 
40 DATA 10 7 , flh9 9fl*> , 90,90,90,1 08 , *1*9 =7* , 75,60,65 
50 DATA 109,91*9 7*3* , 80,80,1 00,11 0 , *> = ;*'' *»7f , 1 00,1 00,1 00 
60 LPRINT TAB (27);"*;/ 9 > 9 7 fl 4 f 7 V":LPRINT 
70 LPRINT " A'* >□" 9 i/ / -f D9D" ” ; 

80 LPRINT TAB (45) ; ”^9A" 9 i7D" Zl"997 M*;/" 

90 LPRINT 

100 FOR 1=1 TO 10 

110 READ BANGO/SHIMEIS/TEN1,TEN2,TEN3 

; 120 LPRINT TAB(6):BANGO;TAB(17);SHIMEI$;TAB(37);TEN1;TAB(47);TEN2;TAB(54);TEN3 

: 130 LPRINT TAB (62) ;TEN1+TEN2 + TEN3;TAB (70); I NT((TEN1+TEN2 + TEN3)/3) 

: 140 LPRINT 

150 NEXT I 
: 160 END 
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Ztl Vli, 7°n/7A^(tTEt^^Ln. 


10 DATA 10 1 , 7T+ 7 $ , O7,85,70,80, 1 02,77-f T f 07 , 75 / 80 / 90 
20 DATA 103/T7* 0+*,70,75,85,104,7i?" +, 1 00,95,70 

30 DATA 105,Ih7 +7h0,90,80,65,1 06 , Wt , 80,75 , 1 00 

40 DATA 107 , 7)h7 , 90,90,90,1 08 , + H7 75,60,65 

50 DATA 109,^7 7 + 3*, 80,80,1 00,1 1 0 , ‘> = 2" 100,100,100 


&ftcr)^T)co TDATAJ l±, 7'—?£%MtZ>tznh<?)tiii4tX-t. 

ZZX'li, UMT—7 (AtJf"—?) +. lOA'frcO'SlfclHh 1A£, Si§ 

mm*, mm.xx-t. 


60 LPRINT TA8 (27) : "S' T 'J T y fi 4 f 7 V: LPRINT 
70 LPRINT " A'yi'O : J } T "; 

80 LPRINT TAB (45) : "'XOW' 173" 3" 9*4 M*>" 

90 LPRINT 


tlprintj it, athL, 

zzxn, 

60fTi80fir«O TLPRINTJ -eSfeSirCV'S TTAB(nn) J (i, 0]+tf>|JBi&{£*£i&£ L i 
T. zcr)i§&li, 7°') > £ •CcofaTPim 

$rAxTTi±, rg >?%&<?>&& (im§) & oiftg t ix$ktx^< zt 

hzLtt. 

7>£')60ftTl i, 27fifS(C'fiMo"lt, 27ffiS*»fc5lfflW : (") THiLlA T7AtA>A^A 
7 A*AAAjAfA7A>J Zftl^t&Zt JA & >) ST. 

60ffB<o*sitw*s Tlprintj t, 90ffgo tlprintj liascfTfcritfcfrv'i-t-. 
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}3E/& 



(D TTAB (nn)J T, b<r>mZW.$:1%7zt & Z. t iz £'), ^<7)ffi:<7)J&5efiTfeS(C'(i 

hZtfrTZttV, Bffi, 7°') > 9 t^^coftcolZ 3fs£ fOJ t^Witiaishb : ik 
£ >) i: -f. 



©TLPRINTJ T- 9 tM&jtfl-ZXfil £i~. L*>L, & 

^<7)Wikiz r; j ^ r,j tmi+t-f t~, m&nwtt^coikcnrniziiLW 

'3'llbilfzt tlz^^X^'t-f. 


(£) fAj (i£6 1 
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100 FOR 1=1 TO 10 

110 READ BANGO/SHI ME I$,TEN1 ,TEN2,TEN3 

120 LPRINT TAB(6) ;BANGO;TAB(17);SHI ME I $;TAB(37);TEN 1 ;TAB(47);TEN2;TAB(54);TEN3; 
130 LPRINT TAB (62);TEN 1+TEN2 + TEN3:TAB(70); I NT((TEN 1+TEN2 + TEN3)/3) 

140 LPRINT 
150 NEXT I 
160 END 


100~160tr(i, i 1". llOfr*' b 1 ft# A# L 

7f- 

ep ^thtznb<r>mmx% 7 ) tforj 

£150fr<0 TNEXTJ Xt. 

mftx r IJ ($») cotmiiKt LX 1 £ Aft, 150!?<7) TNEXTJ X r IJ 1 
it. 110-140^03*100*1 osu ru**io zmitz, -ot>nuz^^fztz^x, z 
z < 7 )®a!±§*-') it. 

oi»), zcomxu, Wftfi'toUOftiXi)*, 1 t blOi T'100#') tl&Z t lz & 0 i t. 

i A^<7)®Li!t lx it, nofftfo Tread jtSHt-c, Tbangoj, tshimei $ j, ttenij , tten 

2J, TTEN3J t V' 7 $Scl;:l0fT~50fre5£ilS HX? 4rI%AjAA (gelt L), 120!? 
TpJfjzco&WtztttL it. 130 ftXlt, 3#gco^ltt¥i^^^L it. 140!?li!?IW£l 
fr&ttS (£fi!?) ntzsbcDfa'frXt. 

Z riNTJ ») ttifi, Ztllt^&t LX 

(/JMSfcas^r toi) SIMItftftlttSx 0 (®S<7)£tt i: LT 

£Ep^-t§ d £ ft&o X ^ £1") 


i \ 

\ 76 J 


\ / 



76.666- 
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a * y 



f - /]£/& -N 

110ff^rREADj^'#J£flfT£ft6 t .DATA( 2 ISIS 
c7)||ft<7)B#(iri02J, TT7^ 'ffD'^J ~r 90J) tffttltX At) $ tlX g i t. 

r>g>), D AT AJCTfcmZtlX^&r-? It, REA DtCX'P L T ofx D ttl L, kWh 
flJfflLT^< hitXt. 

V_ J 
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ii- Jfi tubX&tli; 9 . 

.2dTii, 7°or7A^ia^ffio'C«hL'C^i-r. 

^0^-i'KT?^. 2Jti±, -rorvAiJSSraartu# 

It'CElT^bL/i i<7)Tl\ 2<0j:9t-, 7°n r^AiOUffcO 

8fcft£. 0 (K-t) fci*>£ r7o-^-^.-h 

(aWLEI)J 

aSU^JBi LTI±, i-f HAJiftiU. rHilthlJ £ 

L Tfc £ £ t. * L "t, 1 fNJ- (^JTii 1 A#) <7)®i! 

£HfrL£i". itt#«oasi±, r-?£xt>'&, %<F>r- 
7izn Ltill^ftv' (It*^), *S*£tB* (7'J>?u 
en?) L-O'ii-. ;r<i£W0&**•)&£* J: -5 

-1 t (C J; r> T, ^’SCC 7 )T' — ^ £ ISIflil-Mil Itli 1 { 2 i # f T" 

# bhltTt. 

h b aate***a t ^ n# t (±, * co a 14- & a * -r— ? *< 

-el - l, * <nKh r"- ? icfcj- l f®a£ ?t -? -c 
»*»*£«# ants z^-t-axy 

A/^ItTSr < , ^£A#' , 2;fl;{>'bfM<;'t& £ < (7)7°o /7/v 

c7)^$5y(c^.-1) j-t. 


<Ois!© 



t- 


At 

MS 




7°n /'7AtfO®$5y^ym0f^ioi"i€'^<l: 9 l~& ') £ 

t. 

ia£l£ftot>'.i>7n ry&lt, atA,t’^m<Z> J: 7 tfjfj 
(C * >) i t. 

#aa(3iJV'"n±^l^lc, ¥<r>l 9 4‘ A £ £ft 9 C7>-CL 
i 9*». J0lTtV'< o^<7>faj£^if-t£>£ tl". 
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r 


m 


-7 r t 


■■■ • Midi L^OUtH, 


(7 n -X t° j 7 'if X 9<T)-f— 9% AdJtJ1~l>l^'.l&ll) 

EP^, ft)gOT®X> 


.•.••• • DAT Att*€il f -^ ^ R E A Dtt A* 

A tj •••• • 7 d .y h’ifr'if X ?£At) QkM'CWi'>'t'f) 

■■■■ • ^r — iK— - ? Atj 


«t ii.it*, ¥\m atm tm 

t —$ .v" • y °‘) >t'^6oen^ 

tB t) :’••• • 

:••• • 7 d -y t° ^ t"- f xX'xcogfi (##diL) 
feteJfc .7 7 ^ ;M££}5fc (7 t if /ufjfcff {z*tJS1~&fN£) 

•-g-ftWa, 


7°n /7A^iV) *'COfiJKlTii, &7°o / 7 AWM l*J#(c J: OShotlt 

T* ? , S^WUlJArtLTf ^ofcsSl:7*D/7A^7Ut. 

^T^i'oA^tW^ffo ; > A(±, r'— ? AtJ$rffo*^{cfto^^* f |5-< ilit'L 
J: 0 . 

IS ** 0 >BMU 

CC0#t"ffL < di'C#£liHt£M-t>'< ditc lilj:7. 

©DATAOt 

READOUT?', #)i>^iclbAtjt-.i>r"-^^^*L^-t. 


-1 -\ 

DATA HM. (, 5e#c] - 

^_/ 


DATA7:£#< ,lk<T) t &') X~t ■ 

















•£»{ i=>>^ (,) HcWb U7<r>mm (255*^Wrt) t«Ht. 

• READtTf-?£!^jAtfNHcli, DATL, 
REA D § t, ftA#:T)T'— At) $ # i 

-f. 

•roryAtCIi, DATA*«fltfr*>o-Cii»*V'*-^. &T"-?ii, 7 , D/7Ait> 
T'iiMLTv^r-^ i L-ciR^ftS-f. 


©read* 

DATAA-Cffi*L At"— ? 4-,(c^jX<Ai f. 

—I J--v 

READ *»£ C, *ft£D - 

___/ 

READ*£* < 0#<7)£;tl±, fccn t A'») X*t. 


• READ*T"AtjLT < hT-ft, Zti£ Ail.S*#c«03! (fttt, *=£) li-ISLT ; 

V'3rl+;fU£ ; 5r 9 £•£/,. ; 

• ^$t£(± 3 w (,) T*E-WoTft$cW&5ET# 41 - . ! 


37 















I51J 










£<7) i 1 &"7°o x 

10 

DATA 

111. 2 2 2. 

3 3 3. 4 4 4. 5 5 5 

7 ACOWi'a, 1(Mt, 

20 

DATA 

AAA. BBB. 

CCC 

201t, 6(Mt <nf"-9 

30 

READ 

A 1 . A 2 . A3 

. A 4 

1X7° v 9' 7 A fpfiS 

40 

READ 

A 5 . A 6 . 



50 

READ 

A 7$ . A 8$ . 

A 9 $ 


60 

DATA 

DDD 


') it. r>i 1), 30 


i ; !t~5(Mt<7)Read3: 

/ 

X 0, 

IScl ziilkcnX 5 i:f 
— ^ frBK&ih X tl X 

t. 

DATA 111, 222, 333, 444, 555, AAA, BBB, CCC, DDD 

1 1 1 l 1 I 

READ[m] HH] [333] [113 [555] lAAAl I 1 I 1 I 

A1 A2 A3 A4 A5 A6 A7 $ A8 $ A9$ 

9 — ic ta Z>. 

zcomvii, A 6 ^BKA-Thts^Az^y-lz^n it. 

A.tslXli'itzfrbX't. 


©LPRINT* 


r— 9 £r u > 9iz 11 t. 


r 


V. 


- >9^^ 

L PR I NT 



&} -0 


y 


LPRINT*£*< B#c7)£;i(±, PRINT*tlUfCT. 


©TABMic 

— mfx -\ 

TAB (ffiteS) 

_' 
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TABM&£»< 


• tfrl£Hcf4, £ t. 

■ rms^mit,-32768-32767 tut. tzti U ft<7)fitl4, 0 tfrbZtlit. 

• PRINT*, LPRINT*^^*:itT't. 

I 




©PRINT TAB (5) ; "ABC" 
(DPR I NT TAB (80) ; "123" 
©PRINT "XYZ" , TAB 
( 8 ) ! * P Q R" 


_ha2f5!l T-CDfi ta *e£ tltz 5 ftr S * h 


0 1 2 3 4 5 i*iifti 



tabcj **, @ii, wmnttkmwi 

S *£<r>X'M'm£ fc^SOTIillo £&•) *<, 

T A Bco ISSe^S (c£>) it. 

©14, rXYZj Zmtl fcft, TXYZJ fcl4ffx 

Wi'lltbill t<T>X\ &COTAB (8) (4, C WfrCI4*i*ISft, 


nzzt. 


©FOR-NEXT* 

FOR —NEXT*® i txtzan^co^i 0 Sr»5e0*fc«-, ®. 0 £L*frL 11. 



FOR~NEXT*0 *'*. 
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■mm, Ktt, mfritmmvfiTE-czti-. 

•rsTEPii^-j £*«&t&£, ygfrt lx lA^^ntztcotA-^Lt-r. 

• F0R~NEXT*O^ffWft^l±, um&mzwmz-t'v Y L, NEXTtlclit 

<7)16OilL b'), NEXT^/X^^^^t^^iA 5 '#') SI". 

• FOR-NEXT^Ig'ISIL^ttc, Sljc?) F 0 R ~N E X T<7)$|») II l £ i * f t 
#St. Zcom, rtffluo FOR~NEXTt^ffl«OFOR~NEXT<iOfBlH0*ftl±S 
&•-? f V'frttftifS: 0 S-tfX. 


®10 FOR 1=1 TO 10 STEP 2 
20 PRINT I;IA2 
30 NEXT I 

Z<7)MTU, I £ l*»<j*&*>f 
10 l b S f 2 o-fojfj L 
£> $6 •) & L £ tf i (?) T", FOR ~ 

NEXT <nm Oig L0$c!i 5 0fc tc 

») St. 

moiguffo-cwiiasaii, <7)rt§t^tf0 2 #£ifflffllc^;L-0>S;btt 

ft. 


©10 FOR 1=1 TO 0 
20 PRINT I 
30 NEXT I 


012345 US 



zntoTl i, FOR~NEXTW*IO®L 

£ 1 0 tUtT-yrtfw, NEXTf St. 


©10 FOR 
20 FOR 
30 PRINT 
40 NEXT 
50 PRINT 
60 NEXT 


1=1 TO 9 
J=1 TO 9 

I ; "X" ; J ; "=" ; I * J 

J 

I 


w<7)$Jfli, Still (?) FOR~NEXT <7)$| 


i*i a 
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»)JSL£ 1 rtlllwFOR 

~NEXTco^')iSL^ - 

MzS:^Xftk<7)tt9&;ii£ trtMtoHiiBS 
jr^fro-'S 1\ 


©INTiS 

-1 • # )-■n 

I NT (iC5t) 

v _ J 





PRINT I NT (1003.56) 
1003 
OK 
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% 1 In ~r — ^( 7 ) 7 P'yt:VTV ^/ 7 ^oo Jiff 


% lsfiTii, lxmiW-£ t >) hlfX&£ li i. 

mf&u, luftm, ^¥fi, wizimz-timixA-z,tt<bhx>t\ 

1 ^B<7)JRi7'— ^CO^H-^^SEATI-. 3 > ti- 9XZ-<r> 

If f *#-a, 7 o 7 t" -( r"-f x I 7 i V' f — #'— K t V' f 'OX', r"~ 9 £l£ 

A (Sff) 

glfrtff > h (±, T"-f X7°u f pjjli^M&^'bT"— 7D 7 t‘<fa 

X -v<7) f"— ^ X) gii A"1*. 

OD ^ftU4slt?)iRS;x-^(7)fF^ ($1S3 — 1) 
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O r"— ? a> A ij (i ic o x tr i' i t . 
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V'tttA 1 fffcoAtj 


0 ft. 
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£t*JHB*)3- K£«tRL, 
A* Lit. 


•fl H 2 ttrtoAtj 


JIB£- 
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H'ff 

1 

TfclWdti, AX, 

tit)- 2 

Atft 
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ft#, 

- 4 

ft#t - 

5 
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6 
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- 7 
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- 8 
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13 


.(*ki«LJi£ioiiMiiHLfife Lit) 

0T-?M3mM lWffit 9 fri-e (Biffi±2Htg) LLit. 9ftB£At Ltzht, 
?l < tzth, 23tflTtAOi ■) &Atj®Jl£ ff it. t^L>t, 
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it. tlttn t7Atli, <7) AtJ tTV' i t (zm&mWji'Ei 

{fl&AtJ L t'V'it). 
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vo /7 A±-c«oaa 

$iitV'4 t - 9%&iZJLti 
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R«ti) 
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A £1*7 L 

E 

7’o/ 7A{:R7 t 


W/V 

SSBAif*>W*fr 


0 7 , o/7A^7li, KJSgT T9J tfXilZtlZfr, WBAflA TEJ t'A 

iiZixtz&t lit. 

V_y 


— - £ ** 1-\ 

ffilSAi) 

OTSAijtli, f/(X7V'fBI^®oti'J7’n/7At, il£, iSSf-St? llA 
') ^AAv^ti'? #'£¥ijl§rt& At>A>AttMTA't. Mtc-® *) 
wz.zmffifrwmm znmm (nisti±. aAsWmmwpa t- 5*») t£*y 

BrtSfctf>fcfc*>0!l*>J: 9 KC i*»E £*»<3:fc^£AaiAt'SttAt.X,*iiiit>tc, 
iAii, %:£<7)iIj®;t*:t£tlA^i tA>A, 

A^]f-;«x7-fi 7 7t A# l>iRAt. 

v___y 


’ cota At AfMctCitf'f V I- i LA, iffl®±A>i£i O tz&S.i'bT'— 
fro t>'& i V '3 fjfti t. 

Aijt&t'— ^M*'*l'V'i| i 'g-(c(±, 1 ^A^AA'i 9 &fi£A& <, DifiS±<7>ii5S (Hffiw 
4Tt\) ^ L oi'') A* ^ ffo L it. BASICS 

fci'Aii, LA, rLOCATEj:fc^TABM»* f ffl3ft3 

ft A ^'i t. 

TABSfltSctcoi'Afi, 2 <tABEfc#MH L i Lfz. LOCATEtli, **>J: ■? fc»£A£ it. 

LOCATE ffifeg, fffeg 


fztlt£, TLOCATE 10 ,5 J tfSfcti t, fcm<T> i i 

Ait. 

i A A A 2 ¥ Al£afl l i l A **, 1 fc'It£ 

#AAf), *il±, tOfr'frfcHOiSLASMTS-fcSiV' 
iWi^n/?A<0*$a-afc. t0fx 0 tS-7 7 “d /7 A 5 
L, BilB±w#A*ff^< Kt»it*<OA*»)®L*«TsrtB 
A*StV'-5<0{±j3«-i»i)V'te«ttSAL J: 7. LtL, & 


10 Hi® 



otvtitit, ±S5*)J:-5fr»Afr*£*< ALiiA# itt.t aa,9A-% 
£-|±, itcAi -7 A'^A>#§^$rtl)'E>®*^ 0 it. 
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locate fiTtts, immziuotmm 

tt. 


a yaf'yAW 

ACTo 77 Ataj£^L ST. HP^(c7°o /7A^-.i<- K(-J: ') Aft L, HfrlTJILt: 

T£v\ 


i 10 OPEN "1:SYUSHIF” FOR OUTPUT AS #1 
20 PRINT CHRS(&HC) 

30 LOCATE 17,1: PR I NT "*** 7 a 7 7 f* - * Z n 0 'J a 9 ***" 

40 LOCATE 2,3 .’PRINT "7 a 77 b77" V □ 7 T 7 / Y" 

50 LOCATE 2,4:PR I NT "D-h" ZD-h"" 

60 LOCATE 45,3: PR I NT "77Y 77'Ja7 7 V t) * V fi" 7" 

70 LIN=5 

80 LOCATE 2,LIN:INPUT IDENT% 

90 IF IDENT% = 9 THEN 240 
100 LOCATE 6,UN: INPUT H I ZUKE% 
i 110 LOCATE 13,LIN:INPUT KUBUN% 

120 LOCATE 20,UN: INPUT ITEMS 
130 LOCATE 43,LIN: INPUT TAN I $ 

140 LOCATE 53,LIN:INPUT SURYO% 

150 LOCATE 59,LIN:INPUT TANKA# 

160 KINGAK#=SURYO%*TANKA# 

170 LOCATE 70,LIN:PR I NT KIN6AK# 

180 PRINT# 1 , I DENT%; H I ZUKE%; KUBUN%; I TEMS; ’*, " ; TAN I $; " , " ; SURYOX; TANKA#; K I NGAK# 

190 IF LIN=21 THEN 200 ELSE 230 

200 LOCATE 61,23: INPUT "fl7z7 " ;CHK$ 

210 IF CHK$="C" THEN 20 
220 IF CHK$="E" THEN 240 ELSE 200 
! 230 LIN=LIN+2:GOTO 80 

j 240 CLOSE:END 


ZtlVli, 7°n 7'y £ L j; *5. 




10 OPEN " USYUSHIF" FOR OUTPUT AS #1 
20 PRINT CHRS(&HC) 

30 LOCATE 17,1:PR I NT M *** 7 a 7 7 - 7 Z a 7 U a * ***" 

40 LOCATE 2,3: PR I NT "7 n77 b*"7 77 "7 □ 7 T 9 / 4" 

50 LOCATE 2,4 : PR I NT □-1*"" 

60 LOCATE 45,3 : PR I NT "77Y 21'J a7 7 7 +7 fi" 9" 


iO~6(MTf2, mn\^m^iri>tzish(r>^<nx^'t. 
ir*?) t a') vlr. 
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r 


\ 

OPEN "1 : SYUSHIF’ FOR OUTPUT AS 1^ 

t t 

ai* 

t 

F7 4 7*ff 4XAT*-?£f£ 

^ 7"°- ^ 

7 T 4 

UoltA£$f 

tttjlT 

(7 r 4 /U^<7)^h 9 ) 

(77 4^£) 

^ < <h ^ 



\ *7 ;y;^ ) 


V 


J 


2(HtS!±, Hffi£f£<7)M£ (iBB? l )T) 

30~604Tli, A £ Aif304rtiA, LOCATE**:* 

ot lfn7tfr*:ffilcfltPRINT*r5llliffW*o£|fc£*^LTV'*1-. 


70 L I N=5 

80 LOCATE 2,1 IN: INPUT IDENTX 
90 !F IDENTX=9 THEN 240 
100 LOCATE 6,LIN:INPUT HIZUKEX 

110 LOCATE 13,LIN:INPUT KUBUNX 

120 LOCATE 20,LIN: INPUT ITEMS 

130 LOCATE 43,LIN:INPUT TAN I $ 

140 LOCATE 53,LIN:INPUT SURYOX 

150 LOCATE 59-LIN:INPUT TANKAS 

160 KINGAK#=SURYOX*TANKA# 

170 LOCATE 70,LIN:PR I NT KINGAK# 


704xT1JW£^x£&*:5£4;it>'*1-;&*, LTV'&cO-eL i 7. 80ff. 100~150fr, 
170frt?LOCATE*WfT{fcSffi5£<7>filr-CLIN tia. iC: 5 

*fci&*>AV'Arf><0*! ! S$:<0t k, t. 804TT, 5 4 t 2 firS TlDENT 

S(ao A &(iTTt. IsHiic 100fr~150fr i> If t ftft iff 
1604rT1AA-*'- KfrfcA*LA»* (SURYO%) £#« (TANKA#) (KIN- 

GAK#) itt^f-L, 1704rT"ft^LA^£A>i:"t. AA>LIN<7)|*I#£ 2 £ A J: o t, 

ffi%£z.%fi { b, I Wt*§pJr (fir) z b *:&• 9 Or. 

S-C90fr-Cl-rt<, AAA1A, IDENT%(- T 9 J £ V'7 ffc^A* $ tltzfrt' ? 

■t. al 1 ) r IF J £ v> 9 (fiJDf) a 

(c, KTf 9 J* f A*?;K.AftG7' , n 9 9 S LA. 

^icIDENT%A 9^'AoAv^tllf, 2404x^114r £ L, ■?• -5 •Cfrft*Ufl004r 

i ■? ^‘ri^ta/E? 4l X V' ^ ~t. 
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h\mx 
It, At! 


n n 


ii fiifo'lt, 


180 PRINT# I -IDENT%;HIZUKEX;KU8UNX;ITEM$;",";TAN I $;”,”;SURYO%;TANKA#;KINGAK# 

190 IF LIN=21 THEN 200 ELSE 230 

200 LOCATE 61,23: INPUT "M-j “ ;CHK$ 

210 IF CHK$-"C" THEN 20 

220 IF CHKS-"E" THEN 240 ELSE 200 

230 LIN=LIN+2:GOTO 00 

240 CLOSE:END 


mftiXX&mizi r>X itXh, 180ffT- rPRINT#J xz 

i£o'C8Jlg£l i £t> ( Vfr<r>T—9) ilt707t ° 4 tU x \LX^it. 

mftXlt, L-Cv>fUf200fi\ ZiXtcfttl 

tmomzmftztetx iizix^it. ztm, mmxx-nAtiftMiftBizmix^&xi? 

ItXt. 21ftlzmiX^tUi\ MB At) £ ft 7 b cr> X, 200ftT 

Bffi±23ff6ir0i;teao"lt, tmAtlZftbXb «fc t izlX^it. 

ZcnmiAtX , 220ffTi'. 2WftxmB^~£ 

lx rcj tW? £ ft a wztix^titnoft^nftz&i, 

W$tLX^At,-ht£220ftlzmft£&lit. 220ftXlt, TEJ A'ff£ftftA' 

}f$ft-CV'fttf240frs ttllUftco*-At<?$tlX',XzZbft'200ft'^m > ), 
5ttS^—x>Aft&ft L ^ it. 

LIN«7)WfF**21tjiL-CV'*V'i$tl±, mtmmx-AtlVmthilitfr!,, 230ftT31£<7) 

LIN<ofl#|z2 £1) mix, 80frfclSfr£RLi1-. Z<7)ftm~ iot, m<z>t- 9 Atiftfr h 
2 ftTX>H9.t b Ah X'^ft b tl b hi fXt. 

240-ftlt, l%UAhX'\E\io<At!^iXtz^<r>^M, Xu Xy J*<nWl 1&&X*. TCLOSEJ 
■xx, \mitzyuv\z 4 T 4 A?r-9<n\mtLi£ft'>x'<'it. ia<z>x tendj x~fu x 
7 Amti!zt£n it. 
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IF:fco#£:fr|±#:oi i iz^-oX^it. 


IF THEN/ 

ELSE j ff#-t \ 

1 * J 

1 * 1 


Tb^'IE U v->B# (~>) Itr 

ELSELWt»&£ n*C ^ I* 0#(±, fcWZfr'miT £ nj-r. 

J 



180trSoPRINT#'C, 7 n - y h° 4 r "4 X ?(;t'— ? $:tijil L"Cv> ii"^', -^Op*, 8 o 
OJlgOffetc, ITEM$tTANI$<OfttiBUtT T, J £*# 1\ i"ilTr,J£ 

i itf\f!li, a >^SrffiSgL4r*»oJtwJ: 7 (cr"-^* f Kii 

snit. 


A 1 A A920A A lA*Jf/;|7?nAl A A400A A400A 

htiittf, tt-r-rizuzcDiizztii 
oi »},t-^$-s«i-i)i^ni±{pi^^;i¥{±^< xh, an?n 
/a7o . y b‘4 ±wf-i^ASLT < S^rfc, 3aBwE«i)**4:v^At, mB&W£<0 
f’— ?A<£XiKB& A LX AfiZtlX %-XL t v\ i o £ < SiJco&BfctfO-T— ? tiotl 


A l’A A920A A lAi + /n7?BAl A A400A A400A 


4 


\ 


V 

□ 


IDENT% HIZUKE%KUBUN% ITEMS 


Oit+IASS^o 
•£ 4, -tmiEM) 0 
A L-C(£7<.fr £4xfr 
i'„ 1 oof - * A 
LTginix^o 


%<7)fzsb, coii < i-nOPRINT#T-7o . 7 h°4 r"4 x?fcr-*£tH2j 

1 - 4 Kli, ?x>&lZ‘&-f f, J £##£t)-ti 7 (a L il". 
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ed 

7°o 7'y Afaj£7a —f--**— h L X i. 

Z 7)7° n 7 °d 7'7 

7°o /7 AC0*tt £ -#*f£T"fMTL f v> & [7r4* 

[ 7 r 'f l±, 7 d y t°-r rV x ?cor"— 

7 ^ix •)«7 a#(ci±, &-rm.fr l Sritniffr b ft^ssti-e 
t\ wflSrUTr L&V'i, 7 d -y t°4 r'-f X 9[zT— 9 £ 

#£tHLfc 0, ifilcfWfcAtrt-Siili-C^ i-tfA. 

iA, ffl®£#:£1SoTT'—7 At/, &7Ts % ft 7 i%& 

(±, fourth i) £-f. aco 

i **i*m* f *£ otUo -ci:ft7pBfl£7)iii® i^-o-a 

iv'ilt 

O fc * If, J:') Hi#lc r'— 7 £ A 

tJl~l> J: ?lcL£1\ 

^■0, tf-JHGSt L'CliMMf+lfA't) ») J1-. 
tiit/t ITfi, Itff LAMl£iHfflK*^+6fN£li, 

At/ $ flfc?'- 9 t £31 £ * h-tirT 1 ftOf-^ilt7 
a -y t° 4 IC# £ tH 1-MS**'#) 0 i 1*. 

<%-0<7)7°D /7Atli, ’C7)—^£7)A^*®S3^J|3^ 
r-^At/ftm^-tflti^'JilL-tv^ Itlci>) s-t. 

A A'l, 2*wffJtiftV', Hfflffl±TW«0«L*>#|R 

,^<t) ^ t ttwh ‘&wiz 

•en i Mii-t i nas-w^^aj *>»«•■? 

it 

iBffi£T23firST TfllBAtjJ *f 

U'HiS^^A, t L < (±7’o^7Aco^7^S^ff 
o TV' £ "tt 

7°o t"7Aco®a^nii±, swtcii, Atj—®a-;±j 

®Sc7)«») i£ lT't*\ T < & t, ^ti 

ic#i®i -h %< 

l/tl, 7 °d 77Ag#liti t*t V'^>v>6irjii**'4 i*nirc: t 

Tit 

Sfc, ^<77l5f|-eii, 7 , n^9AS»7?Hi-a ! PJir* 2 ^Sf-CffoTv^i-r. 5f|g*-£l 
T TEJ * f A tlZixtz&f, /R.5^-KiLt T 9 J **Atj3fLfciirel*. 

7°n 7'7 A^ri^77l)J#®(i, #bS1^7)7°o 7'7 A o 7 AtHtJ £ffo T t' & 7“ 

D/7A) iC-fei'Tli, zcotzsh, to 7‘7 ASrf^4»-&-l±Hflw, ^ 
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Bl pp - co §(£ 0j^ 

•zeogU'frL < tH'CSfcfr-fr*. ETv>< ;icULn. 

(D 0PEN3: 

77 ^ A'fcftfflT# Sttttt L iT. 

' T 7j " ----\ 

OPEN *7 7 'f;i'fa? 1 )^’ CFOR^-K) AS (#3 7 7^1-H 
_ y 


OPEN**# < 0#<Oftifc(±tf:<7) £ t$ ') T"T. 


O 77 'f ;WT'V X 7 >) 7"?V(i, £W'f)fWt577 -f BEfcfftfcSfA<7)7 T ^ 7W 

OFOR-C"tg®1-.i>^- K<7)tt*I£i;(*(±, fcco £ 1) -el*. 

INPUT.BEIwffo*«**>7 r 'f 

OUTPUT.SrL < 7 T ^7i-^i / F*t.?.0#w^ 

APPEND. ffiE(c^?SA<7)7 r 'f 

0 7r4;p#^£L-ail~15*«»S£-e#St. OPENAJJlIStwAffl^ffr^-CIi, 7 T I 
a#-§-T & 7 r -f ^ £ ESiJ L T lx 0 a o X v' # £ T. 


© CLOSED 

«fflU77-I 1 1". 


-!t#:A- 

CLOSE ((#3 7rl (, (#] 7 t 'f A#-§0- • • 3 


CLOSED# < £ a 0 Ti~. 


— 
077 A ;P#-?"Cit5£?<lfc7 7 4 7K7)^^5K$-ffV'i-f. 

o CLOSED A- C7) 0 # (i , % (7) 0 # (COPEN ?irCV'5t^t(7)77U^ CLOSE L i 

•t. 

_ 


© LOCATED 

iliffi±c7)#^cO'fig(c^ —vtT. 
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#£* 


/■ 



LOCATE (ffTteS) C, frftS) 

___/ 

LOCATE**# < Ikco t & 0 TT. 


! tltzintAZStlit. 


© print#* 

/-tyyt^ 7 T 'i MzT— 9 i thtl L £ T. 


r- 1 -\ 

PRINT# 7rl >u#-§-, (5$ C{ • } *) • • O 
_ J 


PRINT#**# < i$co&jfc{±, '(k<r> t is •) Tt. 


05*i£tw|ll|fc:r:j£flI-5*», l",J *® •? J: ot:PRINT*<7)B#i 
0 ItilTbltlt. 

o**?'-***stHi-isi±, r,j *##tHL-a r 3<'\ 


— ~ * t j j- 

'>—* vv' v ^ 7 t -f -'L 

BASIC*"© i. & 7 r -f ;Mc|±, —\ >^t 7 >fA7 T 'i ivifh ') £ 

t. ZZXW)t&'3~C '>'&'>—+ r — ;?* git L* I'll #[cI2§iL* 

v'#, A*IT < M&L, B«$irCV'*W#l-X*-C#S7T'f^t v i-. 


V. 


ki]£ti 
r < .5 
W £ 



7 

D 


t° 


4 

r' 

4 

x 


-y 
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© IF* 

ztuzfctxfa'bzm.'irz-ttit. 

-1 *#:£--- 

v_J 


IF m THENj^} [ELSE{ fT *^]) 


J 


IF* 4-® < b# n&MU, fcco t ti 0 Tt. 


o£f+£iKJELfcB#(i, THEN<7)ft<7)*£ll!Tl~&;6N £ tz i± tit S£ iltz (c^tr£ 

#L£+. 

o &#£#§& Lfr^fi, ELSECT$<7)*£f| : fTt-i>*, 

&ltt. ELSEW|5f^' : S«S'$tlT^*B#ii, iX^Sr^SflL i*. 
o Ik?)£ i ^MI^WT^SmlLiSJIT^TSi. i t. 


- Mffci*#*-” 



-i mmwt- 

... 

= 



NOT. 

•S/E 

<>,>< 



AND. 


< 



OR . 


> 



XOR . 


<=, =< 

-«T 


IMP . 


>=, => 

-W± 


EQV . 

■•nit. 


. m . 

(1) IF A = 0 AND B<= 0 THEN C = C+1 ELSE C = C+2 
±<A*I2 A# 5 ' 0 ti'OBi'' 0 Li.“F<AB#, THENWPf<7)* (C = C+1) Z^lUt. 
A^'O Tiit'V^N B tJF 0 £ 21 i. & B#fi, ELSEUPfcA* (C = C+2) i^llit. 

(2) IF A= 1 OR BOl THEN C = CA2 

±<A*[±AA f 1 i^IiB*'l-e^^B#, t^b^—U^m&Ltz^izC = C A2 
Lit. 


© GOTO* 
MifcomiZ’gsi it. 
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*#* 


/- 



GOTO fT#-t 

_ J 


oGOtTO^Wtc, 

© CHR$M«c 

ta^l tz^>— V&W'ilc3 : £ J 3-z.tt. 


-[*#*J-\ 

CHR$ (*fej$) 

v ---' 


j-— if-X-7-aT;K0#i4:#ISL-CT?v\ 
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% 2 ip "7 P7 ^±c7)x — ^ A±) 


H 1 lfit-7 n .y t° ^ T'A X 7 (eg# L ttst"- 9 £ A* L A, 7 ° U > X UEn^i-4 7”a / 
7A^iiL, 77 ^ Ji'frbnT— 9 A£ilZ'oi'X‘¥^ lti~. 
m JR£f , -2*0>ffta (01*3-2) 




#§ 1 |p(7)7°n 7'7A(C J: O-C70 .y t?4 ~f A 7. 7 to gif £ fit V' b JR^f— 9 % At} 
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7“ U > 7 
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070 7 t°4 r"4 x ?tcgil$ti-C^i>iR^r"-7(T)1-^-t^7°'j > ^tcEp^l 4t. 

O7°o 77 AcnfeJli, fc'otztift L£i~. 

V___' 


’ (7) 7°o /7Ali, >) 4-tfA. JRSf'- ? £ 1 (tfo7 o -y b° 4 4 0 A* 

L, -tnSr l^T'oep^LT^ttifiv^lt'Cl'. HK^o—KJ t7r 

4 Mz&£) l£ Itztf, A<0|*l#t±flFf L4-t!:A. 

$7’n/7AWif,ftli, 7°oA £V'0|*-;bb-£•£>*>£ V '7 A fCt. ri5IJH<7)ffiE^J 
f% ^:T'— ^ ; &f[3^ : LI?-o^B#(c7”D t h ») £-f. Tli, £r'— 

Li*-ofcfr4'7 *H4 4"X>J: 7 tcfiJSffLAb i t'Wtli 7. 

4 J: 7. 

BASICT"i±, T"— ?£fB*LfcB#tc*f£<7>7'— ^co/Atc^ibO-v'— 7 (EOF---End of File) 
£ol+.&c: t tiot, 0 -C4>£> 4V'7 - 

T’ # & 4 7 to & T v> 4 4\ 

E '/P^7AffJ 

jAi07 0 o7"7Af5iJ^^Lii-. Ill^to^o 7'7A££--tf'-K4') A4 jL, *frLT<A-tT 
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10 OPEN "SYUSHIF" FOR INPUT AS I 

20 LPRINT TAB (21); "S' :■ 0 V ?' - 9 t 3 1" 

30 LPRINT 

40 LPRINT TAB(4);"t)(”7 77“7 3 7 T 7 / 4"; 

50 LPRINT TAB (39) ; "9 V 4 77!) 3 7 77J) 4 J J)“ 7” 

60 LPRINT TAB(I I);"3-F“" 

70 INPUTS I , IDENT%,HIZUKE5S,KUBUN%, ITEM®, TAN IS,SURYOX, TANKA#, KINGAK# 
80 LPRINT TAB(4);HIZUKE%;TAB(I I);KUBUNX;TAB(I 6);ITEM$;TAB(39):TANI$: 
90 LPRINT TAB(48);SURYO%:TAB(54).TANKA#;TAB(64);KINGAK# 

100 IF EOF (I ) THEN 110 ELSE 70 
110 CLOSE:END 


r f FX)R<^&KriNPUTJj&*»5£S*l-CV'£1- 

6 z t ZMuk LX^it. PR$7 7 f 

O' (SYUSHIF) J l:» LX, 7 r 4 TlJ Wo'ltuUtV'l tb. 

20ftST"*Edi SOffiT'^e^ep^, 40, 50, 60frS tTSg Mi±i IcttEPT^t 

o TV'if. 

70^tST", T"-7£ lftfrXtllXZ it. 7yl)V 
lcomzfgTzZtlX^Z riDENT%j7&^, TKINGAK#] tTco%$klzT-? £ At) IX 
< 6 b If Vt. 

tlX, Afj Ltzy'-ftmi, 90ff^0 TLPRINTJ LTl'J 

It. #>tl±, IS 0 il L fi 1 o A\ Ztiti 

A 73 L 7 < § T"~ 7 W tc < 4- -o tz CO X\ 7° □ 7 y A £ **• b 0 lz t § Y 5 (O f0 Bf lOOfr 

Tff ioixT V' i t\ 

lOOffCtt, l#«7rUi' (SYUSHIF) * f EOF (7 7 f >v<nikb »)) i XM IX^lfr 7 
1 it l x^'fiu'Mik^r- 7 £ -cep^ j&*&7 zt ximfiz& o 7°n 77 

it. ■? tfhtitt, 70ff LlkX) r'— 7 ZXt) 

LXbit. 
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40ffK.J: Zfuf 
60frCJ: 5E0? 



El 

7*n /7Ai^7P-ft- h T^lXX-t l i. 7. 
b i -5 M, Kll— (®S) — 

?&m.<7)Wi?]b&ZtlimUT££tte. * 

1±, 7° a /7 A£f*-7 tcT§*> £' 7 frcn¥i]fflr<7){iLW.ft s 'MZ:& Z t Ti~. 

i§#li, T"— 9 X't)<Z)\M.'&X:'Xt}'T— 9 < fro 7 

^fri'iti 5 ', ^EHi, r'-^tB* (fliTO A 

;flTV'JT. 

ZtiIt, BASICS Vr 7 si'AJjfc'v- (INPUT#) fr, T-9Xt)£ 
ftntz'fe, *7>r"— 9 iO^cSMlZ'fiLM.zflf^ Z t B L, 

B, Mfecor-? ZAtll, ZiX 
fren^Lfr^ 7 h\z.-fv /7a»b »i tz%6fribX't. 

0 ] opw 

ccoSn-cDrl < tBT # frinM5-fr 1*^ < ;ii:Uln. 

® INPUT#* 

is — / r'si/\)V-7r -f tl'frbT’— 9 £ Xt) LT^# t T. 


— mzx |- 

INPUT# 7rU^f, (, £&£} • • • 



(EED , 






y 


INPUT#*fr # < 0#<7)ftS;(i^7) i 7> ') 7"T. 
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| 07 T'fMH-n, 0 PEN*-c»je?tLfc#-?-ei-. 
i o INPUT#Tt'— 7 lk<7)7'-7 tzars'll f$ flit. 
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10 OPEN “REI” FOR INPUT AS 1 


130 INPUT#1, A, B$, C, D 
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'i 

i 

7 P y L* 4 « 



© EOFM& 

7r-f incite-9 £I$tBl tT. 
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EOF (7 7 Uiff) 


V_ 
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77 I ^#7-T''ta®?H*7T 'f 7*'', fcfr 9 tc&o£i*^ £tfctB L i T. 
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"7°n ASrffijf&l-l'.StSCOi' 

T^WLSto 


-> h- 

o ^ < <7>&»<0W«<7>tt:fr 

° FOR~NEXT(7)^*;U-r<7)jpJffl 
° > b"'f a'A,/c^c7)f^^g; 

° 9=->^ttfflUT-rn^7A^jiBa8tz*ai-rs*s 
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zco-raf’yj.ii, z^m 

^01±DATA*T7e 3IL£»MI:£, Ml6t£36 

m (u'rnx 3 mm.) <r>%mzxt)i, tzh- c, 36 m< 7 > 

£%c£fmt&t%&t£ffi£'Z>lt2>KltVl J j:%Vth. * Z TBASlClz is it, 0-S 

< ft 7 C t (c J: O X, FOR~ NEXT* £ flj ffl lt*iwf- 9 £ MWHx &?& £ 

t. 


*<e>&&&£t*>Xi!ti%t&&&-Z<7)J: t %&&£ \mmm tWlftt 


DIMA (10) -+ 

T 


012345678 9 10<- ?^ L 

Z- :-iii 
*£*pW 
"j Bil 


i *>}&5£fc <fc o, A t v' -5««KO#»**jSc*<llflBI« 
JW. 

llli<7) 5 43, oa-5**li, tfcoj: 5 (cLTESiJI-S. 

A (n) 
n 


t# 

off- 

if 


ifc, zcnVv /7AtiilH 

wiaisiv'fco, 0 t'^-v^en^itosL 

* 0 Srifco, 0—c7)®ii^'7°o /7 A^-efSTE t 
TT # i I". C.W J: ■} &*§£-, ^ ct)®Sc 7)^4- 
$|5Jg, co-CIi* < , 7"n/7Artl;, 

£Pft/'£f L'CMIlZ-tth t v> 6 # *.7J£ Hi 
1 \ iicj: 0 , 7"d/7 

Aj&<W8Bfc ir 0, ro/7A^J:')S<t4lJ: 

£ f T# £1". 

;wj:)|:, -/v 7yJ**Xffi%.i>liiX < &*& 

Mi 1 'rPftlzt ttbtzi><r)$:[-y-r>i'—j->}tW 

ti,-v-7ju--f- > & mi $ -t b ^ (gosub wm 

r/'fwu—-infr>'ii-. 

?^(C7"n/7AflJ^7SLit. Ml:yn77A^if-,f- K«fc 0 At] L, 
$ V\ 
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■f* 


DATA 
<nffl lj 

(7)A^ 

E 

* 

L 

ep 


13 

If 

5 


1 


2 


-*f 7";u—-f >_ 
3 


10 DATA 350/370*330/360*345/352*368/375*351*340,320/380 
20 DATA 68/70*63/58,57/55/53/59/60,58/62/67 
30 DATA 63/57/58/60*61/53/57/65/60/58,57/60 
40 DIM HYO(13*3) 

50 FOR J«1 TO 3 
60 FOR I-I TO 12 
70 READ HYO(I,J) 

80 HYO (1 3 * J) *HYO (1 3 * J) +HYO (I * J) 

90 NEXT I,J 

100 LPRINT TAB (29) ; "3 9 + a 9 >J w 9 * ’S * 3 9 'J » 9 m 
110 LPRINT 

120 LPRINT " 7+ 1 2 3 4 5 6 7 8": 

130 LPRINT TABC58);"9 10 II 12" 

140 LPRINT " ":STRINGS(79*"-") 

150 LPRINT " T";* I : J-1 

160 GOSUB 380 

170 LPRINT " (kwh) I"; 

180 GOSUB 430 
190 GOSUB 480 

200 LPRINT " IT2 I " ; : J-2 

210 GOSUB 380 

220 LPRINT " (m3) I"; 

230 GOSUB 430 
240 GOSUB 480 

250 LPRINT " 24t'9 I"; : J-3 

260 GOSUB 380 

270 LPRINT " (m3) I"; 

280 GOSUB 430 

290 LPRINT " ";STRINGS(79,"-") 

300 LPRINT 

310 LPRINT TA8U5) .-"O'Or-f 

320 LPRINT USING "#### kwh";HYO(13* 1) 

330 LPRINT TAB (26) .-"a'* "; 

340 LPRINT USING "#### m3":HYO(13*2) 

350 LPRINT TAB (26) ; 

360 LPRINT USING "#### m3";HYO(13,3) 

370 END 

380 *.-.-- 

390 FOR 1-1 TO 12 

400 LPRINT USING " ### l":HYO(l,J); 

410 NEXT I 
420 RETURN 

430 *.bl/7 --- 

440 FOR 1-1 TO 12 

450 LPRINT USING "(###)I":HYO(I *J)/HYO(13*J)* I 00: 

460 NEXT I:LPRINT 
470 RETURN 

480 *----7-nfV .. ... 

490 LPRINT “. 

500 FOR 1-1 TO 12 

510 LPRINT ". 

520 NEXT I : LPRINT 
530 RETURN 


/ >f f- y^c^GOSUBXlzX ot, f -») tt. 

■f > <nmk\z |± r RETURN J Z £ t , f > iz 

GOSUB^i, filCiotilT 

ZtlTltyv £L x i. 


10 DATA 350/370/330/360/345/352/368/375/351/340/320/380 
20 DATA 68/70/63,58/57/55/53/59/60/58/62/67 
30 DATA 63/57/58/60/61/53/57/65/60/58/57,60 
40 D I'M HYO (13,3) 

50 FOR J=1 TO 3 
60 FOR 1=1 TO 12 
70 READ HYO(I,J) 

80 HY0U3, J)-HY0(I3, J)+HYO< I , J> 

90 NEXT I,J 


ZXX'li, 40?rB<?)DM$:X'ii1%$tlt2 THYOJ t V'-5 *lW<7)E?lJ**fet, 10fT~30fTf*5E 

mi-wtux-cn 2ow 

FOR-NEXT •* (FOR~NEXT<7)*&')iSU CioTftotV'it. 
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DATA 350, 370, 330. ~, 320, 380 
DATA 68. 70, 63, 58, 62, 67 

DATA 63, 57, 58, 60, ~, 57, 60 


40^1-J: 0 

/ enss 
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3 
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5 
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10 

11 

12 

13 




/// 

777/ 


777/ 

//// 

r // / 

//// 

22Z 

V/// 

//// 

^a/ y 


///y 

/ 2Zz 


S//s 

v// 





3 3 0 







-A 



K ) 


'//a 



\ 







/= 



K 












k=z 



K .; 




1 / t 


1=3, J = 10B#, r330J 80trl-i:0&tT P7ZI 

Ol~12 t-C<D ^ 

(HYO (3, 1)) 131-DP 

W-ZhZ 


100 LPRINT TAB (29) ; "3 0 * 3 ■) <J a ■) * > i> 3 •) >J a 0" 

I 10 LPRINT 

120 LPRINT " 7+ 1 2 3 4 5 6 7 8"; 

130 LPRINT TAB(58);"9 10 11 12” 

140 LPRINT " ";STRINGS (79,”-”) 

150 LPRINT " I";:J=1 

160 GOSUB 380 

170 LPRINT ” (kwh) I”; 

180 GOSUB 430 
190 GOSUB 480 


fra^STRINGSM^cSrffio-C, £ Z * 4 160, 180, 190ff 

^)GOSUB*t J: 0, £-f. -^150ff^bl80lTitii, 

190lTT(i, ®Ep^£fr O X ^ i 1“. 



200 LPRINT " K'7. I”; : J = 2 

210 GOSUB 380 

220 LPRINT " (m3) I”; 

230 GOSUB 430 
240 GOSUB 480 

250 LPRINT ” I"; : J = 3 

260 GOSUB 380 
270 LPRINT " (m3) I 

280 GOSUB 430 

290 LPRINT " ";STRINGS(79/”-") 


200fT~240^T, 250^T~2801f(i, 150lT~190lTt X 

ZiX?tL<n&W&&kttl&rflf&fcfrlz2Qffi?Jlz2, 250trej K3 £»5gLTV' 
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ftT. 290ftf±13ftlOT'f 





290ft TitbtlT^l TSTRING$J It, JfcwJ: 3 iff ^ iott'lf. 
STRINGS (79, "—") 

Slfflft (") -eaftflfc*^*, fgSE£ft£ife£fit4;ift1-. 

MTU, a-( 7> (-) 4-79fiT4^Tv>|>^ iid&O ftt. 
oft 9, LPRINT^Pf-e^^ntV'ftl-^G, -M 7 
9 ft-r. 


£(d4- 


v_ _y 






*\ 


300 

LPRINT 





310 

LPR1 NT 

TAB (15) ; "□"9'rT f">+ 

"; 



320 

LPRINT 

USING *’#### kwh " ; HVO (13/1) 




330 

LPRINT 

TAB (26) 




340 

LPRINT 

USING "4### m3";HVO(13/2) 




350 

LPRINT 

TAB (26) : n 24h'0 




360 

LPRINT 

USING "#### m3";HVO(13/3) 




370 

END 





tft'ft t. 

320ft, 340ft, 360ftc7) TLPRINT USINGJ i±, ATIg^S ftt 

(;) IUPf<7)r"— ? ft1~. 


310ft id J; £Ep:ft: 



320 ft id i 
340 ft Id J; 

360'ft id J; £ 6|J'T 
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380 '-7* 7tr* - 

390 FOR 1=1 TO 12 

400 LPRINT USING " ### I";HYO(I,J); 

410 NEXT I :LPRI NT 
420 RETURN 

430 ’- t'J'y - 

440 FOR 1=1 TO 12 

450 LPRINT USING "<###>I”;HYOCI,J>/HYO(13/J>*100; 
460 NEXT I :LPRI NT 
470 RETURN 

480 ’-- 

490 LPRINT "-+ M ; 

500 FOR 1=1 TO 12 

510 LPRINT "-+ "; 

520 NEXT I :LPRI NT 
530 RETURN 


380~420ft, 430~~470ft, 480~530ftAV >;u--f bGOSUB^#M1~5 

>Vt. commit RETURN 

380 —420ft t/ft, 1 t. 

43o-47oftTii, t. 

480~530ftr(i, 

-C7)-7°o /7Atli, 

cd 

y°a 7"y Afflifcy n — L j: ?. 
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-t? /V — *f- V 


r^.'f k^ j 

ep^ 


'r'fl 


EP=P 


*5S£tt 

EP? 



.--Jrt^EP^-if 7 '/U-^ v--« 


*jl£ft 

EP^ 


C* *> 0 



C(7)7”D 77Ali, #>£>#' tLIfi^iJlcr'— 9 £A^jU co^It£f+|f :th 

•?■ L"C, >^(cEp^L-C^ 

i-f. oil titw rxft-HayS-^dJ^J 
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it'd - . • 

-/a 7°y «fc 7 ZBlzZ-vX^i+tf, £TX>7 0 n 7 7 ut^<r> l 

7 %M\z%^>X'‘'h t vd ZtTliti: <, i «fc 7 

^C7) {, v> < o*»#>2>fL <t 7 . 

i*. r-f/;u—fyj x>$|jtgA<1®Sld£ ZtiX^i t. 

7°o 7°7J,$>Tmfei>i£m-fZ><&m$; 1 T-fftClSg* l *£>*£, 

*0l±**a^£fT7-*7Vu-*>. Jt^ep^T) 
-d/;v—f-v, MfcEpijW-fr-r/P—-f&®Dlf2, FOR-NEXT* £f£o 
T12^^-S-<7)#0 iHL ZiX%, It^,, #X, tRU* t iz^j L J ’tib'b, ■£ 

cotzmz, A<#I ? a § I i i: ^') 41*. 

w«7)t*U, **/l—- f tizj: 0, 7*o*yA£fg5ifId 

i-*'b, II—®3a<fsj#Rfr&-CT < £ 4 7 &7*o /7A(i-tf7';u—J: 7 (cl 4*. 


flitft, (I, J) X>HYO (13, J) Z tS 

r^U^J £*;blT^4t. 

* b * l *>«« £tt*, £Aft6 fcrt<OE?iJ*#c<iO«fje<0*»£ #JSf & 

fcrtfcteo-Ct'4WJll ; PC-*\ 

HYO (13,J) c7)4>, 7i'), HYO (13,1), HYO (13,2), HYO (13,3) iztittl?tl 
*X<7)£-gf, 7Kilc7)^ft HYO (I,J) X> I £ 1 —12, J 

#*>* >1 ti<T£ it. I, Jco^MI±FOR~NEXT*Tffi#l-T'#i-ti3. 

^<7)i7i^, mmth^<^^nm^tixm%thztizi:n, *£*£por 
~NEXT*<X>i(il|®]^ftl LXitl Z t fr’X'£ hfrlixt. 7°o 9"y I^nWXWbl)' ») f, < 

* <& c: t vwmxt. 

V_* 

0] op ^ (Z) 

*#•?$(• I < Hi* !*v> dicULn. 

(D DIM* 

E5iJ**fe£««l41-. 


--N. 

dim m^<r>M±i£. C, •••) 

_y 


DIM*£* < a#x>ttS:(±?Xc7) t ij i) T*. 
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• btitzZm-elr. 

• a >-v-cE«oT255 

•ifil!fl±, fcrtfL, w*U±, OPTION BASEST' 1#*G 

fiMffili, ')7ri/>xviaT^tI,UT^\ 

• DIM^TTiff^ft^fcli, SciliiOti, Sc¥-UQ&lz%r>'C\t'£t. 


m 


(1) DIM A (2, 3, 4) 

ZcnXi 4r®5E«r, 3 JJctc« 7)E9IJ i Bf V 
£T. oi>), Ms*.?co^^fi^IHSSc^, 
Jfc7C*Sclw*»)i1-. ^BI<?)J:-7t, 3 tk.7t 
1U±iomiz js v ■>* |±, -j 

0® £ «Ufc l T t ** i ^i-ttt. 

A, frit ti i A — 'JTM 

5. '>'hli'Ct. 


A 



A ( 0 ~ 4 ) 3(0-2) 


0 

2 

0 

1 

. 2 . 

1 3 , 




11 M# 

III III 

»M# 

Inn 

III 

INI 

Mill 




ifc, £«oe5>J*»ct:l± TAJ t^n&fftWn^X^'itt'h, #ffl)S<7)^icT"^ 6 d 
t&bfr'H T. d«7>DIM***ff?<i<5i, ±0^i -5 ***bW*«?ft* i1 tt, & 
r0 J fr’AO it. 


(D GOSUB * 


i%7E$iltztrju—t>lz, HITcosn £ ft L J1*. 



»#* ' 



\ 


GOSUB tT#-t 

_y 


• fr#TH±*70u— -f ><7)^^<7)lT#-i-Ci.-ltitldr4- f ) i-ttA. 

® RETURNS 

*-/a— f ><n9Lfi£to*., L jtGOSUB*w&w*^8([i'i£& L i 

T. 





/■ 

> 


RETURN 

<_ J 


■ frlir-%-£ t%fct z t, it. 

® LPRINT USING* 
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r- ?zm7Ei tz Lit. 


< it s 

LPRINT USING i 5$ ({ ! } S« - 

_ 

LPRINT USINGt £# < t to ') ft. 


•at&nZW) ; nn> (;) (,) lit'G t, LiiWii> 

0 itt. 

• Lf{±. Kiti*, f¥$ffl(±'J7T^>x-7- 

atcEp^siiiT. 


.. - 

(1) LPRINT USING *AAff#. ##" ; 123, 23.5, 3.856 

^ EP^tSL 

I-—-II-—-II-—-1 

AA123.00 AAA23.50 AAAA3.86 

(Dl±, 2&^-?-coiiEP^?ftit. TzTiim^<r>^cr> \. J tt'l'Ik&cotiLmzmitt 

ti'to, v>it. ifc'H&gRIi, *t T#J <7)tSc/i!tEP 

*3*1 it. 

©i±, mt < & 

ofc r#j ^uriiffiata^^oit. 

©li, t$C®<7>J&5Et'2 tfj (~, ##) Lj&‘&V'<OI-, T"-^C7)^(±/J'Sc®^'3fiT* >) i 
t. *Bi£$fLfc'J'#c»<Otfi «5ijf (i 2 Iff) Wfc^lfrSrlHfciALftje 

$ ft A£ EP? L i t. 

(2) LPRINT USING ’^>^AAfff#f#, A i >* ; 1234567 

t 

9 'y # AA1,234,567Aje.> 

a r#j wilaw t r^>j 

t. ifc r#J r,j a**»)it:&«, ;: *)*&£* tat, t-?£3ffir 

i (a rj >vf ELDo f EpT 1 Lit. 


© STRI NGS MIS: 


ffiftw £ ft Sf.^tSc ftlt-t A i t. 
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. . 

STRINGS 


STRINGSUfftHfi i '<kcr> t to 0 Xt. 


• *=L*£t&7E't& t, wtW 0 4T. 

■ t, ZcommZ*-?? 7 7 z- Ki^&L, WlST&*¥0 4 

t. 

• 5$(i, 41. 


0 J 


i 


BLOCKS = STRINGS (70, 
S 

LPRINT BLOCKS 


4 


******** ~ ******** 

'- -- > - ' 

70I@CO r*J 


© REM* 

y°a 7’7A<pl~&fKi:Atlit. 

- 1 - 

REM (&f?*) 


REM*£* < B#<7)£:ff.li, Ikco t & 0 X"t. 


■ REM*<7)Lr!i, T^T*T£$?ic&0 4T. 

• fREMj <7)Itb 0 (cT4°X h D7-( (’) £Wi Z 4T. 
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Tit, <n f 9 £ EttA* 
L tz '), fi&fch t) L fc>) 1~ h z. t * { 

^<7)7 

T -< o/cPp^V'-^-b-ii-tf07°O / 

7Al:ov>tfiLSt. 




° ~P >^A 7 



'fJKftfF/# 































glliS 7>y'A4'Aaj**'T'#5>7 7-1'^K75f^)5K; 


dd-Cii, i£M<7) j r—?£H.tgAlJltz *), SitjL?z'')i-&ZtfrT£& [y 9" U~> y \ 
1". 





Z' 

A 


#:<?) J: -5 4riBfflo \> t T, fiPirlSr"— ? co 7 a - y t° 4 r' -r x 7 ^c7)g:it £ frv' i1\ 



1 2 3 4 5 6 7 8 9 10 1 

1 12 13 14 IS 16 17 li 19 21 

? 

0 21 22 23 24 25 26 27 28 29 30 3 

r~ 

1 32 3 

13 34 35 36 37 38 39 40 

4 

41 42 43 44 45 46 47 48 49 50 5 

5- 

1 52 53 54 55 56 57 58 59 6 

6 

0 61 62 63 64 65 6 

.6 6? e 
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70 7 

^ 72 73 74 75 76 77 7.8 79 1 
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ME 
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FF 
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24 
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7 2 3 4 5 6 1 rTinr 

M2 13 r 

4 IS 16 1 

7 IS 19 21 

3 21 i 

2 

>2 23 i 

>4 25 26 2 

17 26 2 

9 30 : 

g 32 33 3. 35 36 37 38 3 

19 40 


12 43 4 

14 45 46 4 

1 48 4 

9 50 5 

il 52 ! 

i _ 

>3 54 55 56 57 58 59 6 

0 61 62 63 64 65 66 67 6 

8 69 70 7 

, 72 73 74 75 76 77 7 

8 79 81 

:& 


©ftp/fH-f’— ?<7)5iMlt, i>1 izft^tt. 

SfccoJ: 7 4-^lP.iJ<7)t i 

xxx ft^cosSTfc^cofflllc <fc 0 

t t 

50*8UEfl- itS 

50^30E3J-I±, lk?> J: 1 L Tfc £ £ 1". 


50 § 

T 

4 

7 

JE. 

* 

il 


9 

4r 

=7 


X 

X 

~b 

V 

9 

-f 

7 


h 


jr. 

5? 

* 

/ 

E if # ^ 

0 
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7 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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22 

23 

24 

50 ^ 

/ \ 

b 
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* 
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r : 

-V 

J2_ 
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7 

•J 

)V 

u 
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7 






E % # -f 
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26 
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28 

29 
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31 
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35 
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37 
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39 
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41 

42 

43 

44 







ddTIi, |h]— 50%Ti&£Z>&:&in0i ! ¥\>Mt''' J ) d tlziKfclX&Z i L x 1 . r>£ 
'), &#ti ltfx (0-9) (7)iitt. 

©i££l±13fiT, ii.Pixl,MOrnM\Hcr>kt> tltt. 

©mm&^ltStnTXtlltt. fzt fL, 3ffi-CJ^i*>l±3fffT«*LS-r. 
©«|g#^-|±, rfj|*)Ji#, iPX^##oH(c^^7v (-) SrAili-t-. 
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t. mmxti^mmt ztuzmttz^ma^kc o l a •) x-t. 


C. ^AtjZiltzr'— X£7 n t° -fictLn l, lk.<r>T— 9 £ AtlT£ 

b i 7 US L a; l £ 1\ 

b. ^Ati itzT-?izMirem^fr-h-ofzm&v, 

ML, An it L *''trtg 4-ttSg fc L i +. 

E. -y h°-f (Cjun L, 7°o r-7A^I^7 L i 

t. 

_> 


b0&SL£ 

t'ISt'ttSotlfcVT'i ;H±, t^tx- ^tDf-ii"ni> 77 4 ;pf'L 
A*L 4-Elfx •) t&7 ry>rA7r-f^J i±, }A«o J: 7 & tty-X> A- -v ;u7 r 4 ;u£ Mb 
otV'Jt. 


(1) 7r 'f /^«<7)0PEN*-C, TFOR^- KJ iiiP&l it. 

(2) 7 o -y b° 4 T\ X ?±0 7 T WT^f'—^«0-^») L >) i±, .j&T T7>X" 

A' , ''77tJ 



256^0 

/ 

1 . I. 


> -t it 


1 1 7 v X AA y 7 7 

■{Hl®.7-9$-q ~\ 

7 y ^ A / ' y 7 7 ] 

Wt / 


7 > ?A'<-y 7 riiOPEN^n^nAB^nT", &M#}',zm$kZtitt. 
(3) 7 v fA7 r •< W'ijWf- 7<nKt)\z\$ TGETJ X, 7>fA7 

ntuijizit tputj 


0 yp^^Atij 

!klzy’u7 , 7£,ffl£iiklit. ^ic7”D 7yA$:*— KJ: ') AiftL, UtrLAA-AT 
$ v\ 
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10 OPEN "1:JUSYOF" AS #1 

20 FIELD 1/13 AS SHIMEIS/40 AS JUSYOS/6 AS UBINS/13 AS TELNOS 


30 PRINT CHRS(12) 

40 LOCATE 26/ 1:PRINT "» m a 0 S J a □ 2 * *J \z 4" 

50 LOCATE 9/ 3 : I NPUT " YOUtH* 0 -> " ; BAN60 

60 LOCATE 9/ 6 : I NPUT / 4 -> " ; KSH I ME I $ 

70 LOCATE 9/ 9 : I NPUT H *j* zOVm -> H ;KJUSYOS 

80 LOCATE 9/12: INPUT 0 -> " ;KUBINS 

90 LOCATE 9/15:INPUT "TEL-NO -> ";KTELNOS 

100 LOCATE 53/19:INPUT "NEXT PROCESS (C/B/E) ";NP$ 

110 IF NP$ ="C" THEN 60SUB 160:GOTO 30 
120 IF NP$="B" THEN 50 


130 IF NP$="E" THEN 60SUB 160:CLOSE:END 
140 GOTO 100 

1 50 '-FDD PRINT- 

160 LSET SHI ME I$ = KSHI ME I $:LSET JUSYO$=KJUSYOS 
170 LSET UBIN$=KUBIN$:LSET TELNOS=KTELNO$ 

180 PUT 1/BANGO 
190 RETURN 


150ft £>bl90ftfi, * —— K cfc 0 *v h‘ft Tft * ? 

—-f >X"i~. 


ZtlX"l£7°n iln Q 


10 

OPEN " 

1:JUSYOF" AS 

#1 


20 

FIELD 

1/13 AS SH1 ME 1 $/40 AS JUSYOS/6 AS 

UBINS/13 AS TELNOS 

30 

PRINT i 

CHRS(12) 



40 

LOCATE 

26/ 1 

PRINT 

"*>* 3 O i/ a □ 0 

? 0 fe 4" 

50 

LOCATE 

9/ 3 

INPUT 

"17 n*i\*y3*o -> 

";BANGO 

60 

LOCATE 

9/ 6 

INPUT 

"y y 4 -> 

";KSH1 ME 1 $ 

70 

LOCATE 

9/ 9 

INPUT 

"5/*nO : 4 a -> 

";KJUSYO$ 

80 

LOCATE 

9/12 

INPUT 

"20k "Jl\*y3*0 -> 

";KUB1 NS 

90 

LOCATE 

9/15 

INPUT 

"TEL-NO -> 

KTELNOS 


10ftS(i, rFOR*- 

i/ft 7r (256tff)^/«t i“. 

20ft§(i, l~FIELDJ:£(-ioT, tzttli 

256ffT<7>3fcSS*'fcl3ffrfc: rSHIMEI$J £ V'7 Srottr, R;£ £ Aft <&««£#] 0 

30 fta-ci±, 6oft ~90 ft 1? Uk&i r£8rj. ^<r> 

f±pJr«T-?£, 7>/A^7 7 7 tgi 

tl±jtotv>4 ^ Jiiili*-*- F^bA*U:f- 

9 £, US-7 > ?!*'<"/7 Z t l£X'£ : b'<'frbX"t. 

i /ft 50ffTA^LTv^rBANGOJI±, £W#g <7)r-? t LX 

Atf Lfc 0 

L 4* f ) i i - . 
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100 LOCATE 53/19:INPUT "NEXT PROCESS (C/B/E) ";NPS 
110 IF NP$="C" THEN 60SUB 160:GOTO 30 
120 IF NP$="B" THEN 50 

130 IF NP$="E" THEN 60SUB 160:CLOSE:END 
140 GOTO 100 

150 ’-FDD PRINT- 

160 LSET SHI MEl$ = KSHIMEIS:LSET JUSYO$ = KJUSYOS 
170 LSET UBIN$=KUBIN$:LSET TELNO$=KTELNO$ 

180 PUT 1/BANGO 
190 RETURN 


lOOfftii, k 1\ A 
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t) $ tltz^lz J: O&LffCff-jftm**#* 1 ) iti'b, 110~140 !tT", IF^T'ff ? Utz^ 

S-W-c, ZtUzJz^xmmZ^'lfrllrX^i-f. 

T C J tfffl Ziltztc h>l£, 160frX>'£>£q J •2>'>f7Vl<'—-f->£^frL, 7a 7 f<f-( X^Cf 

-?£&tllfz&, 3ffiiz%ft&&LX'''*+. %l<?>T—?<7)Al)imf&Ztlz%') it. 

rBJ jWSflfcfrfctf, A*;X^o/:it'^it, SOfi^KU b Ail 

ELSrfibb-tf i1\ 

TEJ JTA*>r3A<7)r"— ^70 . y t 0 ^ r'A 7 S L, 7 * 0/7 

A£1*7tc L t>'£ I - . 

140frCI±±KI2JW*)*-jWSftfciSKlOOfrNRU IELv'*—£Ail]t$Hi-CV'£-t\ 
BOfi^bW^TVi'-f- >X\ 7o - y h°4 i;r"-^^##tHLTA^1-. 

16(M?*‘ b 170 ff ic^it'CiSbfl'Cv^ rLSETjltli, 20 frT' 5 E 3 i £ HX a § 7 > /A'< y 7 
7 W&&&U, ^f-«-FJ: ') TLSETJ O TLJ I ± Left 

(*)0#.ft-C, 7>/A^'-x7 7^#^ic(-fit^-te^ l'-ti>P£, ^ffllRco^T-te-y hii-f. 

^LT, f - ^t^T7 > f A^*7 7 7 t-fe 7 Hfc^t, 18(HT<7)rPUTj*{c X i), 7 
y/AA* 7 7rWfl$^7n7 t° 4 {cg#ihL£1\ 

rPUTJ coftw n J (±, 7r4/Hft-t. 10tr § COOPEN i«7 7 ^ t ttt&o'ft 

^ilX^t-t. ttz, r BANGOJ L <& ') S 1~ XA CL LI A'ts Se £■ ii-tz 

If’T'XA t"—^(DS rSlflrT'tAc7)^ii#-^-<7)C. <!: fwo— K#^J inft/J't'. 

i9o*ts*> treturnj itv-rsu-j-xn&nzmt&^Tt. 
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(1) l \%<r)?-9<nz. ££ O^-KJ £nff/\ 7 rA 

>v 4> <r>%<r> t"— 7 £ <7)fflW6-J&li*Kl{£ £ #-§• £, T w 7 — K J £ »¥ A T*v' £ 1\ 

(2) 7>/i7 7^K!0l£, filOftfA-f-^£®#ih't-£*<?# J I'frfe, 

0 it. 

(3) BEur-^^2«$*i-CV'6W3-K#^fi[a^ t $t/£ fcf-;?£#£ Hi t£, JU 
hu< 7)r"— 7lizh$tl, $JrLv•> t"— ^A^'lEii£ft £t. 

(4) %MT—t (Sg&^lfc, i£ffijg£i&, l±, iS}g7> 

fA^77 7):-fe7Ft^^ilifli£^ MKI$. MKS$, MKD$^<7)MSc£f£ o X 
ff5£$ILti'b-t7 h L£ltft(±'£') L, fflfflii ']77U>X7^m#I 
L f T £ v\ 


El imo -¥ii 

7° o 7*7 A<5lJ£, 7 n— f-^ — h tfxtAi L J: 7 . 

7D-f7- hCO?%n£at (,«•*» S «fc 7 (7, 7>fA7 

7'f^£®! 1 ) ®7 7°n tT7M.lt, ^tTCO V' — 'r > 7 >V7 

r a >v £ fx >) a ■-?t v' & 7 ° a r 7 a t n h * ft o n * n t * 

A,. Jf~7K-K*‘f,A*Lfcf'-^£, 7>fA^y7 T i: 
•fc-y h L(4&3), ■£ ft £ 7 n •■/ h° -f ft## tH l -£V' * ftIff 

t cm*). 

77fA7r 4 1 I>±lr'^(c^^lc07>7" 

A'<-y 7 7C0giM'fi:: £ T''1~. 7 > 7 7^ 

SS£li r OPEN J ffr-fc-CflHS £ it* 256tff«OfI« £ H g r £ lz 
Mix TFIELD^J -CEfllS - £ Tt. i ft, 7D 7 fn 
<7)T-;?<7)##tBL(±, 7>f£^7 7 7<0ft (256ffir) T" 

*u, T"-^<7)tB*<7)r^!±, ttsr.<7)fea-^(7)*#tisL^nr 

7°o 7"7 AfpT, £'<7){3:Sftl : #&tj , ;& > £<ftl£ 
l£^-£u 7— K #-§• £ Aft £ -tt & 54H L 'J&fjft ft o ft < 4 

■CL J: 7. 

ift, Zcr>7°a 9"7 AftiJ^ft, SWIffilASt TBJ * ? 
ff£ftftfl#, T-7<0Aftitlft7Et&ftftoftV'i1-. L*‘ 
L ft — /K— K£SfPLft<'' < 7 if, S 7, £ i '7 £ ft>ii 
jH+&ft £(*-£#£ 4tft. ftftft”, ro^AtCjlffiX 
^'%4L£:S#7)fltIE<7)A;i*7)®a£An'Cfc < ft£ft«fc 9, 
7” a ft 7 A £ «k ») * 1 7) (ft t & ft £ **-C # I) IRT-t. 

HI **0>*MH 

^gnt-ffL < iiift#fttfr^£, Eftv' <ft£ftl£Lj:7. 
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7 i — It/ K 

® FIELD# 

7>fA'<77r^v'< 0 if. 

-1 - 

FIELD (#] 77^1 7 4 —/P MI AS #T^&£ 

C, 7 4 -;u Ms AS - 




FIELD#£# < Hfco&jtli, lk<F> t is ») ft. 


I ! 

i •77^1'ifli, OPEN#Ki •) 77 t 

i -7 4-A'Kiisii, rAsj-cwii&'fitfcn.fc^sfcttJoi^« | 

®Sfc(±ft±T'255fif i X" fiJ 0 SfC£ it. i fc, FIELD#-C*&5Et 4 7 * -)V MI^£ j 
j «-|±256tRJUrtt‘*ltiiIf* >)itA. j 

! ■ zerfUi, GET#, PUT#<7)fJ(c^$n-Cv^(tniT^') iff j 


©LSET/RSET# 

7 > fix'*"/ 7 r -t"/ \ Lit. 


V. 


- *- 

LSET1 

#T^$c£ =#¥r"— 7 

rsetJ 


Z 


LSET/RSET#£* < B#<0&Eli&co t is 0 ft. 


•7>/A^y77l:f-^-b7 htS^(i,'J&#LSET/RSET£1£t> Srl+fUiSM i 
-*t/v . 

•LSET/RSET£'KoT7>'#A'<y 7 7 tc-fe -y Pt5f-^li, #ff—ItLUt 
SMi-tf/L. icitf'-tl±, TMKI$J, TMKS$J, TMKD$JOAt^t#T"#^f"-t 
(c L T & < 0 i t. 

. #^T-^<7)tfT«fcJ: 0 i, ftmtz>7 i LSET*»&tei6, 

RSET£7fr|£<£>t-f — t £ -E v t- Lit- 

•#^f'— t<7)tfric* { 7^ — /uMIi 00 j#f GLlit. 
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/rii 


f 

m 

---- \ 


10 OPEN "1:S AMPLE" AS 1 

20 FIELD 1,10 AS A$,10 AS B$,10 AS C$ 

30 LSET A$= "ABC" : RSET B$= "XYZ" : RSET C$ = "ABCDEFGHIJKL" 

40 PUT 1 
50 CLOSE:END 

^___ 


A$ 


—i—i—i—r~i—i—i—i—r 
ABC 


i i i r m—m— r~ 

XYZ 


c$ 

—rn—i i i i i i i 

ABCDEFGHIJ 


~7 V 2* A A y y r 


10«T 


iow 


10W 


~f •y h 

PUT* 


7 >fA 7 r A yrWPi&ZlhllLi-to 


- K#* -■> 

PUT (#) 7 r -i C, is =>~ K#-t) 

___ J 


PUT*£ # < U#c7)tti:i±, t is ») Tt . 


7 4 i>7 r 'f MZ7>?\U'<-v 7 L £ 

*. 


5 

130 RECNO= 5 
140 PUT 1, RECNO 


*?^F' 
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7 >^A77^il/ x? tz 


z z X'it, W, 1 gfi-efftS; Lt7>fA77^ yK7)F B 1v^^h-y■ 5:fr77o/7AHitA 
ILn. 7°o A? Af^)*±<?)a*l±i51 Ini IsHfT'to 

CD ftl/ril? t -i 7K7>|H]i.'-£-;b-t± (l^liffl 5 — 2 ) 








fcoi: 7 3Bi#^-£ i i (cf±pjfii7 r ^ )\'<r>T&'&b4t%fa'>' Hr. 



1 3 3 4 5 6 7 i 

) 10 

j;“ s16 ,;,.„j 

? 

1 2? 23 24 25 26 2 7 28 29 30 

3 i 

Jl 32 33 34 35 36 37 38 39 40 4 

1 43 43 44 45 46 4) 46 44 50 

l 

SI 52 53 S4 55 56 57 51 59 60 

6 

61 6 

3 63 64 65 66 « 

.7 68 

69 70 7 

1 72 73 74 75 76 77 78 79 8 
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24 


i a 

’ 3 

4 

s 

6 1 

- . 

* 

10 

v 

1? 

i] 

11 

15 

16 1 

rnr 

19 30 ; 

if”* 

34 35 36 37 36 39 30 

3‘ 

13 33 34 35 36 37 3 

>8 39 40 4 

it 43 

4, 

43 

44 

45 46 


48 

49 50 

3 ’ 

>3 53 

54 55 56 57 51 59 60 

r 

.3 63 64 65 66 67 66 69 70 7 

.73 7 

3 74 75 76 77 78 79 6 



• iBffi3tfg-e, (i^7-F#f) £a^l, 

iltl>7'-i'5-77'f nxtiLt^r. 

(-) £X^L*1\ 

• 1 —SffllMTgtc.fc^X&^^S^^l'iSliiSA^^fiA'^ 1“. A 

Account i t tz>nm\r<kcr> t a ») xt. 

A tltt 


[~c~| .Bffi^s^LisL, 

I E 1 .7°o ?7A^7 t. 

V__ 
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12 -f 

Kck 0 AtJl, WTltATT 

? v\ 


10 OPEN "JUSYOF" AS #1 

20 FIELD 1,13 AS SHIMEI$,40 AS JUSYO$,5 AS UBIN$,13 AS TELNOS 
30 PRINT CHRS(12) 

40 LOCATE 26, 1 : PR I NT ” h T 7 7 t? **3 7 ft 7" 

50 LOCATE 18, 3 : I NPUT ”/\">D"7 " ; BANGO 

60 GET 1,BANGO 

70 LOCATE 9, 5 : PR I NT "*J t < > SHI ME IS 

80 LOCATE 9, 8 : PR I NT "'>*:i7'>3 > " ; JUSYOS 

90 LOCATE 9,11 .'PRINT " 37b" >□" 7 > ” ; LEFTS (UB I NS , 3) ; M - " ; R I GHTS (UB I NS ,2) 

100 LOCATE 9,14:PR I NT "TEL-NO -> ".'TELNOS 

110 LOCATE 53,19:INPUT "NEXT PROCESS (C/E) ":NP$ 

120 IF NP$="C" THEN 30 

130 IF NP$="E" THEN 140 ELSE 110 

140 CLOSE:END 


10ffgt"7r 'i 20l7BV7>7‘A'<-y7 7 O 30Tr, 

40^x1 i, i9 t Edi 

50ffi-C, gEfeBANGOKU a-60^fi^ TGETJ *t\ 
u- 3— 7 £ Xti LX £t1~. 

Xt) £ titzT-jr &r t izmtentiL 70~lOOfrcOifr^-C-to 

110frBTD*:^*3aj dd-CffSiifc 

jWCASj&'fcmMf, 130fr-Tif-<, ^( 7)^(1 It. t TMHtO rcj**ff 

3QfHzR*)W<r>T-?<r)m'&to*tZfT'>'* + . fEj;H¥£JvtV'Jiff, 7° 
nXyACD&Jlzlit. tteWStL*:*-#, rcj Tl%< TEJ rtfcV'lSlillOtf^R 
o, 

90ftBlzffifclzthX£fz LEFTS, RIGHT $M*fel±, (*3?l|) fXfcifcttfctt 
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C3 op'^’0)sj£®^ 

< aHTW lilcL^Ln. 

(D GET3t 

7>fA7r a /UOt^T"— ?£, 7 VfAA'v 7 7 KgUnjX^i £-f. 


-[*#*J- N 

GET (#) 77 'f ;u#-t C, u a — K#-§0 

_/ 


get**# < B#cottS;i±, ik<n t a *) -ct. 
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taSE $ Xltz 7 7 'f 7 r 'f b 7 > A'A'^'V 7 7 (C, T"—7 

A- £■ i“. 

**>#■»£**£+*«:**$>, **3*Lfc*£-l±, 
JJJUWfcA* LlzT-?<r)#itoT-?ti t Kti$tLX £A T. 


m 


30 OPEN “SAMPLEF” AS 1 

40 FIELD 1, 10 AS A$, 10 AS B$, 10 AS C$ 


l 

150 GET 1 

S 

250 GET 1 


150fT©GET#-CA;tJ %^3-' 


250?rOGETXt?A»5^- 


•b 




- 9 ,- 
, ? A 


101 

A 


103 

B 


105 

C 


108 

D 


115 

E 


{ 

5 

* 


© LEFT$Mic/RIGHT$MSc 

*§5e § n tz tt n <n £11 A, £ It fi A *&5 e $ a A fiTic £ tt tb L i T. 



9£Ji 



-.— -N 

f LEFT$ 
l RIGHTS 

V 

j (*m «cs$) 

_ J 


LEFT$ RIGHT$MI&£*< , '(k<7) t is 0 X"t. 


•$C5U±, 0~255WfKHfc*l+*U«r') UtA,. 

(c£0 it. 

• fcW*0 ct)B#{±, fsjt £ 0 tfciL i+tt. 


m 


PRINT 

L E FT S ("ABC DE F", 

3) - 


ABC 

BM 

PRINT 

LEFTS ("ABODE F", 

8) - 


ABODE F 


PRINT 

R I GHT$(*ABCDEF" 

', 2) 

•• •► 

E F 
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77 z>Zfo £z> 


5f itlJ, IHSor'— 9 
bit: 0, 7 T AMz&tlltz') L 
iLfc. ^*T"li, r-^/7 7 
fcKflMSLTAi L 1 7. 


--f > I- 

° 3:£}£ 

°1 J®±hr, fc«fcr/, 
















fclffi #^77tR^77<7)fFJt, 


ZZTlt, #/77iP]/77WS7FMI:ft>'lt. 

11 i^7 7i n^7 7(!)M (15!ljS 6 — 1 ) 


— fljgcDia#- 

Sett-T- ? £ A* l, 

it. T-ftt, %fW&nr-?£ 1##, A*fl«o*flms«l7'-*frir, Sr/L-et, 

©T^tU'tt 

Atl&iMt: (7°d >7° hi;) “r"— ^ ? ” i^^L, l frfof-? %t—Ki] L i 
1". r99999J 

£ L£-f\ 

©#/77l^ 



*fflO(cA*f'-^, ;£1iJ(c#A7 7£*7K;?-££-t\ #/77«lS*)li, ftr*dt£ 
10cO^§#(10, 100, 1000-) £L, *il£10ttfl‘L*CttjS$-ti:*1-. #(±fe#ttlT 

Ift/Jx $ -^T J i”. 
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©R/77Stp; 



£ffl!lfCA tlT-7, R/77W#3lg{±, fe^-ltl, 

AtjT-flt, m±12ft?t. 

■ ^7'yy co^Tfkli 

® 12 ftcr)T—7Atjfi { $* *--?fz££ 

© r99999J VXtlZtltzt # 

£ t. 

• #7'7 7£3&f'>f B is^L tzh, StbtmzFi'ryyizmfrti-t. 

■*7-U, 7fe^-(So-CW, #, », *fe, jtfe, b U 

r-*#8fm±*>S»£, ■&.!£(;: Lit. 


AfFfi!Ui(7);i® * 

•r^-xliliffl, 7?7-f 

• fecooitT? 
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TAx h jgffi t 7 7 ~7 A Z 

(/77 J "/ 7'>>X>u£f&hX) ^ft7K-ti>(C(±, TAX HHffi/ftt&ftff*. 
£') iT^'rAx hiBffit#)b-^TX'7 7^ .y ?iHffi£IgRT£ t 7b f nTfg(ci- 

9 SI - . 


TAX 1 


X X X -f y X 


ABC 


□ © 



y >r x y° i/ -f 


(SCREEN ^X'lax-g-fc-^X^ $ •£ £ ) 


1 % • E3£l • RX)^7r:X)f±^j 

T A x h /7 7-f y?y> #J UCO^TFlZ |±, i -f, LOCATE*©”*^® (£ 

±*'b^T»)£®7El, Set, PRINT* 4 Lfcia. 


8KtS 


lOfrl t 


ABC 


LOCATE©,9) : PRINT”ABC 


tzbifi, m-rnn -n^tn, 7774 ■ytmmizmmitt. zcot§&, /77-c© 
m ®±x>*^i2;aoj 9 ffiSc7)^^#®T"t. 

/77-( *X>f^(2PSET*, Hii«k 1^0LINE*, RA>ffiR<7)* 

^©CIRCLE*T"fix'i t. fc fifi/l, :ilbWtl±, 

/77 >f -y TAX F ilIH(7)®If (cjrb^T, fct, If t i) 8 IgX>ff Jg (£f 

I±16tt<7)f*fl^fcW(>*>S) (cio-CV'ii-. 

Oil, 1f80fiTX) 640<7)*„ ^-T25lT<7)8fgTi-*‘A>, 200 *x> t"C £ v© 

■1 £ T"T. ^— 640 - ^ 

MLC^otAiln. r© xt”w- 4HH(7)4i*(c#Si0* / 

T^-x>R£#< fcli, #c<7)J: -J 200 

\ 

312 

CIRCLE (312, 96), 80, 7 96 

fc THIS ©g fe 


lEt, If«I312, /cTffiH96, ipg80<7)6x)R^'#(tiT. 



640X200 

128000/7 
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R t # (4, T * X h ESS i/77-( -y 71®^®Lt 

d t IZ t£ 9 4 t. /7 7 /f -y ? @j® <7)3111 A TAX f- Hffl<7)ffT$C J ^fii&£ i£W1" 6 
(c(i, ffimigi, tzXM&i: 8TW)&ttl(fJ:''-‘blfTt. 4fc, 1 * f 8 o<7).6 Liftf&L 

ttfrh, /77^ -y £ 4 ,673-fc'ltTfbl'- ttir') 

41". 



ftg*)R *>+'&»£ “ABC” t^1-5lc|±, lkcr> 4 7 (c L 4 T. 


LOCATE 37, 12 : PRINT "ABC” 



12(4, 3 o49, 1.5i¥#(8 + 4)«:i-C, ABCfc+'t'K (> o t < 

C LfcA£*5eLfc*>-Cl\ r^xliUBli, ttUltSg^V'Wt 4 , ®J9#4l 
-tbj: 7 L'tK'(c(4&9 4-tfA. 


fexioltTl 

^o-C^-4 l j : 7. fe*a*k:H:PAINT*£ffiV'£1-. 5fcH<7)R<7)*< MS(c 
(4, J^c7)1i(ctB®L4-t. 


PAINT (312, 96), _2_. X 

mm t t-fc<©fece) 

(RoflflD (jfc) 



o4 9, PAINT:£f4, ftjeLfc&HW'fcitfeLfcfefc, b < <7)fe<7)£ L■*>4Ti£9 41. T” 
t*'C, R05T1I <7)1111 (ffilitf (1, D) £1&;SIT PAINTS £*1 tI 4 t£, R<oM! 
W i-lf, tfcWPAIN'TfcTfi, n<7)4HaO* J W< *1 4t. 


PAIN T (1, 1 ), J_, 7 

tfg ^isfe offe) 

(R©4f®J) 



PAINT)t<7)llia^lt®1--i> t #, *<7)ffi«l4M^;ft.&«fcAoT^I>.6T”& < T{4& 9 4 
-tf/C. h < t -fBJL LT < tl£-*bA,<7)~C‘&.MLX < £T3v\ 

?T, ^•i>fe< 7 )lB^'C'T*L # 7—f'/r X7*v 'f HB y — r u h' £ |5] 14 i lz, 

tOEIfe (tf, #, IS) v^v»%*fe**iB-e-4-t. **W$r;fr 9-14 8 6 
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(H, W, 7jcfe, Kfe, a)#> Oil". tAX h COLOR^ttc 

/77^ -y X®ffiX)7)7-^i±, Y t'*u "/ y cofgTEfr'&WT t. 4 T, SCREEN 

hi i\tr> TiSffl^— Yit>y — ^ — K(iJb^L4T. 

SCREEN _0_ 

t jS®-* — K (0 O t f * y -, 


KklZ'tu -y 1 F ili, fe<x^£P^ftfi9(itB5c244l> A<^x>L<7)-el~. 

.4114, 

^4l$:iatc^h1't, 7Ax>|lfH3Uc&oTV'4-f. 


u -y h 




PAINT (312, 96), 2, 7 

t 


;b < €>fe 


U< 


Jj y — 


1/ v b ^—tiy — 



. 0 

..... 1 

. 2 

. 3 

. 4 

. 5 

M 


w 




* 


s 


TKfe 

cz:.e 

1 fife 1 


. 7 

6 


ijy-t'^Vy h <7)*t(Sl4, £ COLOR* (COLOR = ) -Cffi5£ L 41*. 1§5 e(c 

iot(4, lo«(/7-< oc7)/'°u-y 

0~3<O^i/yHi, 4?7-#f-l (*), 4~7^7Hi, t> 7-#-^ 2 (*) LtllEl- 
£ £, M&fe£ 0 t LTt, 3 t 

^'Ty Iffi4;7-tfli, ftWo«®Ti4|5] t #■*£**£ 3-fr-c*> 9 4T*L -S 
COLORAV**.* £, 6^^tJ7"n/7lf 

41~. 


FOR I =0 TO 7:COLOR= (1,1): NEXT I 


Z.cr>\lt)\ t/y — li, 9’yy 4 -y X@0ffix> 1 ,&-f- r>\z^m.t‘ t 'Q % 4t^t, 4 , Fsflfe<7>#3i,& 
i'*'T^t* ! , L4lb(cov^-C{4, ')7ri/>X7-a7imf,UT?A 


H yaX'^AlJiJ 

lklzy°v 7"yM,m:*l£-f. $£ffilz~7zi A7A£ A—-K— K4 9 AA L, 
£v\ r"-^(4, 12# 4 T (1 ~32767X>*gH) A4JT# 4t*L SSLKIO 

t A4vt ATTA ^ 


[ffUXtT 


80 


, 50 PT) , 70 QJj) , 40 (^T) , 99999 QJT 


. 20 U) 
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?J*/V *3*fl 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 

620 

630 

640 

650 


**77 


CONSOLE 0/25/0 
WIDTH 80/25 
SCREEN 0/0/0/1 
WINDOW (0/0)-(639/199) 

VIEW (0/0)-(639/199) 

GOSUB,* INPDATA 
GOSUB *DISPDATA 
GOSUB *BOUGRAPH 

FOR T = 1 TO 2000 : NEXT T 

GOSUB *DISPDATA 
GOSUB *ENGRAPH 
END 


* INPDATA 
DIM INDATA (12) 

FOR I = 1 TO 12 
INPUT "?*-* A"; 

IF INDATA (I) = 
KENSU > KENSU + 

IF INDATA(I) > 
GOKEI = GOKEI 
NEXT I 
RETURN 

*DISPDATA ’ mm 

CLS 3 

FOR I = 1 TO KENSU 
LOCATE 0/1-1 
PRINT USING "(##) 
NEXT I 
RETURN 
*BOUGRAPH 
BX = 184 
BY = 164 
HABA = 22 
YOKO * 32 
TATE = 16 
IF S/10 > 

MAX = 10 


f"-* Za9'Ja* 


Za9'/3* 7 "-* 


INDATA 
999991 
1 

S THEN S = 
INDATA ( I) 


( I ) 

GOTO 250 


INDATA(I) 


7 " -* 
7 " -* 
7 * -* 


Za9'Ja* *>79 
J iH**Tf 
J □ * 9*< 


fi*/> *D7/ 7 "-* ta9** 


##### 


INDATA(I) 



LINE 

LINE 


(BX/BY-TATE*10)-(BX/ 


S = S/10 : GOTO 390 
tVJ J 

BY) / 7 


*7 33 *** ha9** 


(BX+YOKO*(KENSU+1),BY ),1 


FOR I = 1 TO 10 

LOCATE BX/8-6/(BY-4)/8 - TATE/8*I 
PRINT USING ; MAX * 1/10 

LINE (BX-4/BY-TATE*I)-(BX+4/BY-TATE*I), 
NEXT I 


FOR I = 1 TO KENSU 

LOCATE l*YOKO/8 + BX/8/ 
PRINT USING ”##";I; 

NEXT I 


(BY+4)/8 


*7 J t 39** 


33 /t'J J ta9** 


/**- J t 3 9** 


FOR I = 1 TO KENSU 

IF INDATA(I) = 0 THEN GOTO 620 

TAKASA * TATE*10*INDATA(I)/MAX '*7*** J 

LINE (BX+l*YOKO/ BY ) 

-(BX+l*YOKO+HABA/ BY-TAKASA)/7/B 
IF TAKASA < 2 GOTO 620 

PAINT (BX+l*YOKO+1/ BY-1)/ ( ( I -1) MOD 7) + 1/7 
NEXT I 
RETURN 

*ENGRAPH ’ mmmmm I y **77 

EX = 440 * (EX / EY) ; i> / 7a9 *7 trt 3 9 





660 

EY = 100 



670 

R = 1 80 ’ nyti 



680 

ST * .00001 ’ 7 7 zZH?// □ * ? 



690 

FOR 1 = 1 TO KENSU 



700 

EN = ST + INDATA(I) / GOKE1 * 3.1415 * 2 



710 

CIRCLE (EX/EY)/R/7/-ST/-EN 



720 

P = EX + R/1.2 * COS(ST+(EN-ST)/2) 



730 

Q = EY - R/1.2 * SIN(ST+(EN-ST)/2) /2 



740 

PAINT (P, Q) / ( ( 1 - 1 ) MOD 7 ) + 1 ,7 



750 

LOCATE P/8-1 / Q/8 



760 

PRINT USING M (##)" ;1 



770 

ST = EN 



780 

NEXT 1 



790 

RETURN 



7°v 7*7 A^i+T, lO-'liLi L 

10 

’ MU r77 MHM1 



20 


1)* f'J S/a+fl 


30 

CONSOLE 0,25/0 



40 

WIDTH 80,25 



50 

SCREEN 0,0,0,1 



60 

WINDOW (0,0)-(639,199) 



70 

VIEW (0,0)-(639,199) 


i 


ZZTli, BffiwWJHfbSrffoTV'i-t. /77^ U^li, #-rfcJ#HbL 

o 4-ttx,. ^3ttfoi¥iffl(±«]iSL i-ta*. MM<nm&ttmmLX)o$ 111 v. 

rCONSOLEj *-C, r*x hifflffiox7n-^1-**tt*0fTa»fc25fT kt6 

kkilz, iBigj(0MT&<v7 t> 7-> 3 >%■— x>^7n£?WL'0'‘41'. x ? n— j$,k 
£ ^lEHTi". ^EKi, i i~. 7 r > 7'> 3 > * — $ 

fc 4 4 f t/77 *7K li f £ 4 -f ** m L fc U frU* tfr'Lt 1". (#Jt L fc v» i § li, 
CONSOLE,,It Lit) 

rwiDTHj*T, r#x Iri^LtV'it. tico^ii, 

Lfc. 

rSCREENJ ~3clt, 7*77 4 v 7®WZ*7-X-Ylztl k k i>lz, 
t>'>41'. 

rWINDOW] Piet rviEWJ MS5CC, 7*77 4 y ?Bffix>g£Hx>i5H t, T"-f x7i/4 B 
®Offi*«0|6ffl£it5£L-CV'4 , t. WHffit iJgfltM: 0*»fc*&4 9 ttfrb, «f(X)7j fate 640 
A, fct(Y)*'rtlK200^SrME*lfifflt LTitjeLT* 9 ft. M^ZT) 

»L<(±, ^ri^^x^aT/^tlUT?^. 


97 






80 GOSUB * INPDATA 
90 GOSUB *DISPDATA 
100 GOSUB *BOUGRAPH 

110 FOR T = 1 TO 2000 : NEXT T 

120 GOSUB *DISPDATA 

130 GOSUB *ENGRAPH 

140 END 

150 ' 


Cc7)-7“o 9'yM.li, v iit-oX, 7*o/7Al: 4 olc-frlt'C^ £ 

1\ f-vi±, lk<f>z t ZMIfl £1. 

* INPDATA . T-? i>of-?<7)ftA®, ±>J: 

V'&T— 9 <k>&gf £ b. 

* DISPDATA. AtlZtlfzT— 9 £\Bffllz%7jKtb. 

* BOUGRAPH.7 

*engraph. pjryytmmtb. 

%^<r> TFORJ :£l±, #/77i- z<r>tk£li, 

4:^c7)iS#iS®T, $Sc£ 1 <>6X2000'41". oi»), $Hit£A 

#<1-m«<, /J'5 *0^1-. rFORj ±CDfrb'1 (CINPUT A$i1-S t, ffl 

£ X, W7? 


160 * INPDATA ’ an f*-* HH 

170 DIM INDATA (12) ’ -*0')*9 J*-9 

180 FOR I = 1 TO 12 

190 INPUT "7*-* A"; INDATA (I) 

200 IF INDATA (I) = 999991 GOTO 250 

210 KENSU = KENSU + 1 ’ f*-9 -nl'Ja* 

220 IF INDATA(I) > S THEN S - INDATA(I) ’ 7* -9 J V49'<9 

230 GOKEI = GOKEI + I NDATA ( I ) ’ T*-9 J 

240 NEXT I 
250 RETURN 


ZZXlt, A — A A £ fltzY— 9 £ 12® £ 


wkt LTiettLit. 

xmi<mwi£i K«Lfcr-^<?)#Mfc r- 

9 <7)ftA®, ftAM^jR 

4 T 0 £ftA®£®SLA-^'A2i2ft 
btzWz, ftAfttJfciRU i> U AtJ^tlAT*-? 

It tilt, ftA® i He £ •£> t v> t 

< T'— 9 r99999J, £tz\t\2ft<r>T— 



9fi*A£i £ fib t ft A® ti'i ®SSc<7)4 3 (-ftAc 7 )r"— 


9fim t ) £t. 
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260 *DISPDATA ' wm—m ft* i'j 0'J7, ?"-5 ha 1 }** m—mm 

270 CIS 3 

280 FOR I = 1 TO KENSU 

290 LOCATE 0,1-1 

300 PRINT USING "<##) : ##### I ; INDATA(I) 

310 NEXT I 
320 RETURN 




i-icii, rcT’sj*£f£i^t. rcLsj^(±, 2& 

bl£9"7 7 4 y 710®, 3 co t # (if®37j co®]® M L£~t. 

WtX, rLOCATEj^-C-'^-y^^tea^lt, rPRINTj£-TA*T''-^£ HTTo&frl 

& A 5 ' ib , L J T. 



imfr 



330 

*BOUGRAPH 

' H HIIIIilH ft" - 

- *"77 

340 

BX = 

184 

’ T" y?y j x 

V* LsO 

350 

BY = 

164 

' fr* yfy j y 

f ba 1 ? 

360 

HABA 

= 22 

• ft" 9 J MM* 


370 

YOKO 

= 32 

’ 3D J ft?"= 


380 

TATE 

= 16 

' 9? J +1T5 



390 IF S/10 > 1 THEN C = C + 1 : S = S/10 : GOTO 390 
400 MAX = 10 A (C + I) ’ 9? ■?'* XT 1 / J V-T9"-(? 


$x, ikxtZ'Dizfrifxmwitii. 7 . 

• flip'IS 

• tz' 

• #<7)|5xn: 

il*. idfii, f#/77(X))IMS(BX, BY) t, IS(HABA), 

fc‘CM<50£3’*(i (TATE), (YOKO) /77^ v 

ffi±<7)*<7)g|fS, fcJ:(/, 

fe-Cttli, 1(MS<7) # t L, 10<7)^##$c<Og®(.:£l> i 7ft Afit (MAX) coft £ 
Oi0, T"-?*T.O, 20, 80, 50, 70, 40co J; -5 2 g 

®<7)*A{t£100, Sffitf>**H*<1000i$:* i 7 tLTV'it. 
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410 ' 9? 33 S/*# ta 

420 LINE <BX,BY-TATE*10)-(BX, BY),7 

430 LINE - (BX + Y0K0*(KENSU+1),BY),7 

440 ' ff ytD J 

450 FOR I = 1 TO 10 

460 LOCATE BX/8-6,(BY-4)/8 - TATE/8*I 
470 PRINT USING ”#####"; MAX * 1/10 
480 LINE (BX-4/BY-TATE*l)-(BX+4,BY-TATE *|),7 
490 NEXT I 

500 ' 3D y=tU J taOS'" 

510 FOR I = 1 TO KENSU 

520 LOCATE l*Y0K0/8 + BX/8, (BY+4)/8 

530 PRINT USING I; 

540 NEXT I 


;;ti±, #/77Witttt, fcj :IF, tzX £*7r=Lit. 



£*BL-CT?v\ (BX, BY) 

'(5:ilK:&o tt'it. rtx h HnST-At Lt 7?7 -( -x 

Lit. TAX r LOCATE] L i t. tx 7 4 -y TAX h 

jljffili, 1fT'200Tf25, tzX T*640M80T A t A't 8 m X> c A o T ^ 6 X> T'\ Aft ATl 8 

T’SlJo'CV'it. 777 4 -y ?iffl®±<7) 4 *^(i, T^fX g§£ 

T'l± 4 if}/S£-ti-TA'it. 
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- \ * ^ 

iSi§i±.lz?"7 7 "f'o'fyut L'Cffijii'-i. t £, 50 1 

frmt't'i tt. Lfr u z.co 

7 , d/ 7A<7)J:7(:, Sic$r®oTffiWWicft51LTi>’ < t, 9, 

r^in, m<r)mzi?&Eix9tfTix*£ii! i. 

_ j 


550 ’ **-/ ha•»* 

560 FOR I = 1 TO KENSU 

570 IF INDATA(I) = 0 THEN GOTO 620 

580 TAKASA *= TATE*1 0* I NDATA (I ) /MAX ' * 7 ** * / 9M 

590 LINE (BX+l*YOKO, BY ) 

- (BX+I*YOKO + HABA/ BY-TAKASA)/ 7 / B 
600 IF TAKASA < 2 GOTO 620 

610 PAINT (BX+I*YOKO+1/ BY-1), ((1-1) MOD 7)+1/7 
620 NEXT I 
630 RETURN 


?t, V'J:v>J:#w|5»^*SLit. #l±, 2 2 t t&Eft t l 

TLINEJ *li, 2 -y 

Ti*. M8t<7)'*7S-?lz TBJ + 

SI". 

ST, T-9tf 0 4rA>«KOffl5^-<O*^±-l&S4rV'<!O-C, 
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tzX £ ?A(|Xf-^T 1 / +: 'J H >) ') -a-''') 

16 X 45 4- 10 = 72 

&£>\ Z.(n~fv 9*7 ATii, /iTlift)# ^'A^iHHSciilOfli HD^i'CT. #£Ot$-54 
fe{±rPAINTJ*-Colt2>3 rPAINTj^li, 

*sfe<0*>< ffi5e?<lfcfe-cat») it. TPAINTJ *14, JfcWttteitigL 

J-f. 


PAINT (XffiH, YffiHO, ;b< c7)fe<7V*u h#-f- 

HfS(4, T> < <50 r^l 1H0 <7> te^ L £ I - , £ -f #<7)jl5 $ *< #> & ( 2 W±) Hi7 7 

L, 2imbfe^i')it. b< c7)|*HIJ^*T"T^b, «tt^(fi](c+l, fc-Ctt^lftUC-1 

■/ h 1 T-'tWoSPbI, 

I 1 7 <t> 3 &£ < 0 ti'sL-ti. ■) it. 

MOD14, ^#£7)5^0 

fcUlf, 9 MOD 714, 9 + 7 = l-2Tti>b, gf4 2tc&») £T. 

[b)1#I-0 MOD 7(4, 0 v 7 = 0 - 0 T^li 0 Tt. lot ((I — 1 ) 

MOD 7)+1(4, I AM, 2, 3, •••, 7, 8, 9<7)i&, 1, 2, 3, (x> y) 

-, 7, 1, 2, t^r'l it. N 


(x + 1 ,y~ 1 ) 

y 


640 *ENGRAPH ’ bb^m t'j $"77 hbm 

650 EX = 440 ’ (EX / EY) ; IV J fnO'jy trba7 

660 EY = 100 

670 R = 180 ’ J\yn 

680 ST = .00001 1 7 7 -JIW/J □ "? 

690 FOR I = 1 TO KENSU 

700 EN = ST + INDATA(I) / GOKEI * 3.1415 * 2 

710 CIRCLE (EX/EY),R/7,-ST/-EN 

720 P = EX + R/1.2 * COS (ST+ (EN-ST)/2) 

730 Q = EY - R/1.2 * SIN(ST+(EN-ST)/2) /2 

740 PAINT (P/Q)/ ( ( I -1) MOD 7)+1,7 

750 LOCATE P/8-1,Q/8 

760 PR I NT US ING ”(##)”; I 

770 ST = EN 

780 NEXT I 

790 RETURN 


?t,R/77|:»») iLn.4f,R/77tv^ 

10, 10, 20iv>9 «R777HS< tH 
i 1“.P371±, 1@(360 - ) 

L £ 1". 

oi 0 10 + 10 + 20 = 40 

r"-9 1 (i 10 + 40x360°= 90° 
t"— 9 2 it 10 + 40x360°= 90° 
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T-7 3li 20=40x360° = 180° 

Tt. R(±, rCIRCLEj:££ 1£o - t W 

££-t. Wlitf, RO+4j>a5«*« (200, 100) T¥M^'50<7)Rf±, JfcOftjet**) £t. UK 
KKL-C^-CTSK 


CIRCLE (200, 1000), 50, 7 

-n, r ztuzffli&pimtifrTnmzyisT'st^i&fo-tfgfcitt. 
7'JT's ttli, mvMlzZ'oX *('/) (i, 3.1415T1-. 


t&lzli, VW&telztc'i)£+. 

**7ft*J&«l/2irO* 0 3.1415/2T"1-^b, 

CIRCLE (200, 100), 50, 7, 0, 3.1415/2 

mt&nmt^inmz-y'd-y^^in-r. otcii 
IEt At**) S-y-A. Ut0i«M<?)*#£, +fl-fc/J'?V'lfc 
(0.0001) itSU-v/ /x£o(+i 1". 

CIRCLE (200, 100), 50, 7,-0.0001,-3.1415/2 


(7 /TV) 



Jt 

~T 


R/7711, 2^4-lOOL IT, ^tiJ'g-^SrSSlF/cft^L't 

W+IfffrfcT^il-. &WJI2<iO»7£J£f±, ifcwj:-? £*•)*+. 



( 200 , 100 ) 


r Z 9 * 2 * 

I^V'T, 

COS) £f£oTftltl;£ l i 5. 

A = C x (COS0) 

B = C X (SIN 6) 

T'T. o £ '), 1) ^(7) 

1-. 

XlMM : /gxCOStf 
Y«S : - (*&XSIN0) 



(e : **7fc*-H$&fc*) 

:;t, x, Y®«£tf-JH-*fctf>fcl±, /77^y/ 
BifflwftSiSrJ: <S»L-ao<*S* ? *0 i-t. loli, 
t (±IE A* f R*t£ 4r-5tv>j:i 

T*1". 




















? v y a v y @iH_h offiH 




+ 


hi loa, xmt ywi«d®hh±, tj x 7 °i'jmffi<vfrWiiZ& (o, o)- ( 639 , 399 ) <59 

t # lttl ZZTlt, ( 0, 0 )- (639, 199) Y 

it. 

TPAINTJ 1C<Z)}MW.ltMW^<r)^X)t'ZXh £ 

< %7FT£Z>At LX, ^11(7)1.2^— <r>&\,zL£ Ltz. 7*n 77Atli, JI^£^L£:f£, 
COSHm, SIN M» £ 1£ o "t, IJJfc <0 + Wffifll £ TPAINTJ* £ fti ■11 £ h fc, rLOCATE] 

^Cf, %<7)l$kWAz^i&T %■ x 1 HBcOfSTF-feicl-# — V;u-£'(2:So'’tt, rPAINTJ 





P = X+ (^g-rl.2)xCOS0 
Q = Y- (¥g-S-1.2)XSIN0 /2 

" -v-'' 

q 

[3 

Z<r)^T%xL< HiXZfzfa'bZ, ETV'< ditcLSLj: i. 
(D CLS3C 

f^fXHI, /77-I .y UTLSt. 


-i l^ 

CLS C<8MB» 

•,_—-' 


CLS:££*< B#«0&j£(±,#:«0£.fc ') -el". 
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• <mm> l±, 1, 2, 3^3&tT«Lit. 

1(±, t*x hilffi£7'ITLit. 

2 i±, 77 7 ^ -y 7Hffi£7')TLit. 

3I±, rVx h Hffii *7 7 4 >y 7iHiS£ 7 9 7 L i t. 


(D WINDOWS 

r't X7°u -f BBSi leasts 7—;u i t. 


-^ It # * J---s 

WINDOW* (X,, Y,)- (X 2 , Y 2 ) 

V___ ) 


WINDOW* £# < t is 9 tt. 


N 88 - BASIC(86) Vtt, mm( 777 j >y 7x) £«-5 /cJ6ic*§ Tfc9, t 

ft£7-;uKflJW*i0ft/ r i+. 0®(±, dx>7-;uK®1**7»4 I T"®? z 

itw, ** xt^E wiz»m$iu>nit, zcowiNDowi-cm^nfcmm^i^T 

t. WINDOW*V"ffi1f£. ( 0, 0 )- (639, 199) tffifetfUf, 7-^FlSif-fX 
7V -f Lit. WINDOW*TPI5 e§ tl/iffif * x 7 ') - >MU 1Wf-V* 

it. 



® VIEW* 

r't X7V t BB®CX) 7 t, *77 ,f -y 7 fflffi£^tt & L i t. 


-( • # * i --N 

VIEW (X,. Yj — (X 2 , Y 2 ) C, <SM«fe» (, 

V_/ 
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VIEW*£# < ;|±, 7£<7) t is 0 Tt. 


• WINDOW* Tit 5c.L£Hit£T"4 xA i & 

t. VIEW (0, 0 )- (639, 199) tfifetht, xVl/'f L 11. 



7 -/ 1 , k'BISI x? !)- vffi# r -< x/i/l Hffi 


• VIEW ( 0, 0)- (319, 99) i Jill'S t 777^ >y f'U7’H'gI«£ 

±m*fri,zm'pz tixiiTjkz tit-t. 

WINDOW ( 0, 0 ) — (639, 199) VIEW ( 0 , 0)-(319, 99) 



9 — /U K35H X ? y — VT -< X -f U 'f jSiffi 

• •/ F #-§■£&£LSI - .'<>'•;/ h #-*§-*«£ flit, VIEW*Tit)eLfc 

r"^ <)7£tlfzt £r)&)fr\Z<niB7E$tltz&lz%D ft. 

i^'V7 l#^£it£t&T£*T'§ t*. /'V 7 £, VIEW* 

TtB^L^r'V x*V 


© SCREEN* 

777^ 7 — K^TeC^*. 


— «s*- 

SCREEN C<iHH^-F>) (, <BffiX-fv*>) 

[, <7 7fiV^-ix> (, 


SCREEN* £ If < 0#x>£;*i±, Ikco t is ») Vt. 
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• Wffl*- Kl±, 7v7 i "/ fWWmjy—^?r"i X7°U 'i i7)53-^tgc7)fg^^ tit. ii 

nr, 

B!®*- K : 0 # 7 —*—K 

1 an *-k 

2 *#i!MBen*-K 

3 Mftmttiy -*-K 

iX'f-vf-ii, 777^ >y ?H®£-fl#W(VWLX: »), *^a*^S5*tLfcO-t4 
£*6<t)Jb^£ L £*. ills', O^igSL^T. 

X'f 7f : 0 77 7 1 -y ? Mail's: iSlST*^ 

" : 1 a 

2 n £ —B#6<j(cvW1- 

3 " £ ifc, iftil-C Ail *£•!>. 

•T^f-f^-y, TV X7”U"f t}7 — 3i— KTiiil'ffi' 0, 1 £f§7E 

LJ-t. PL<I±, 'JVTVVXV-aT^tlUT^'. 


© LINE* 

*&5E?ilA 2 AW fciM** II £ 41. 



LINE*£# < 0#c7)ftt,i±, i^<7) t ii 0 T-f. 


•ffitl (X,, Y.) *»$> (X 2 , Y 2 ) £*(c, h#-?-r«5g?ilfcfe<o«Sr*§ii-. 

•US (X,, Yj JMtJi, ItfjX>LINE*, CIRCLED, PAINT* 

£*<7)«f* f t iot, £x>*<7)i;isfUi, j; -5 iz tc 0 £ T. 

r LINE (0, 0)- (1, 1) f LINE (0, 0)- (1, 1) 

l LINE_ -(2,2) ^ l LINE ( 2 , 2 ) 

•LINE*<7)^°t^-^{c TBJ ffifll (X,. Y,), (X 2 , Y 2 ) £*1*1*611 

At t&mfimTfiltt. 
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( 0. 0 ) 


m 

LINE (0, 0)- (10, 10),, B 

( 10 . 10 ) 

£tz, [BFjZfUfctZ t, h#^fe-CM0o^*L £ 

t. 

7 'i > x 9 4 ;ii: lot, S&H^- *£*$£ W#(c?| < d t £ T. 

f¥L < i± 0 7ri/>xviaT;^#IUT?v\ 


© CIRCLED 




CIRCLE 


<M> C, V !#-?-» 


(X, Y) 

STEP (X, Y) 

(, c, (, \tm 


j 


CIRCLED# < B#coa*(±, lk.<7) t H ') t-T. 


•mm (X, Y) LT, tf£?*U.:*®c7)R£, -y h 

*^ST. 

•ffifSL LTSTEP(X, Y)t#<t, itfilKOLINE*, CIRCLED, PAINT* i?mMt: 

tR'itzXwmWti'bnffiftlMMfrt hil£-f. r>£ 0 !^c7)3t(±|n| tjfi&'Cl". 

CIRCLE (100, 100), 10 (CIRCLE (100, 100), 10 

CIRCLE STEP (10, 10), 10 ^ (CIRCLE (110, 110), 10 

Mttftft. ^7ft«^7y7>t^t4i, R3!R£*< lii'Tlit. Ccoi#, 

**7aSa*H-e*>*Uf, fefifc 7 

^ i~cO"C, UHfi^tiS ( •! i £ f T" i? S i~. 

00*. If, (illcoIS# il". 


CIRCLE (100, 100), 50,, -1.57075, -3.1415 



50 

( 100 , 100 ) 


Jfc^£t&5£-t&Lf#R£lm< d ttfX’Z iT. i¥L < if, ^r^x^T/^# 

MLTT?^, 


® CONSOLES 
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( 

>v 


CONSOLE (a?D-;pl^T», (x ? n —;i4r&» 


(, (~7 T > 9 : s s > % — ift/FX -Y "/ 

(, <*7-/0IX-f 7f» 

v___ J 


CONSOLES* < B#oa*I±, Zfc<7) £ ij Q T't. 


7r>?/3 >3- —S^X'f -y -f£ 0 (C"M> L, ft'tv'6 7 r > ? 

-> g —£ 1 *. 1 izMt £ 7 Cifi 9 X^L J I - . 

f?ij CONSOLE, ,0 

^-/SJiX'f 1 t-f-i i, r^X hi!Mj&*#7—•=&— K ic =Sc 0 41”. 0 £Jb 
5e 1-& i ai^- Ktc£9 it. tiy-*:- F'CfcSj&'GJi*- 
COLORS n it. 

x ^ n— b X ? a— Mri&fc iot, r^x F HHxiS^IeH^'PIS'C'# i t. 
f¥L<f±, l ) 7 ri'>'X 7 -aT;^#ifCT?v'. 


® COLORS 

T*X ^Vy h*>fe£*&jei£1\ 


-1 -'j 

(1) COLOR «7t>?/ 3 >U-K>] C, <A*y?/7>F*7-» 

C, <tf-r-#7— >] (, 7tT/7>F77-» 

(2) COLOR = (C'Vy F#f>, <#?-3-K» 

(3) COLOR@ (X,, Y,)- (X 2 , Y 2 ) C, <7 r > 9 '> a > = - K>] 

_____y 


COLORS* < t L> 0 T"t\ 
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CONSOLE*Tt Ax h mUVJ] x-A- tA 

x Hffii;istl.t?i:, 7 7 >7/3 >3-Kt«Lfcfei { o^t. 


-7 7 > 7 -> 3 >3—K 
(77-3— K) 

fe 

0 

M 

1 

H 

2 


3 

* 

4 

*1 

5 

tfe 

6 

stfe 

7 

a 


• # bH(2)cot§&, &s<u . y h#-§•(; t)? — a- KTtiJ&t&feLit - . —:>x>fe 

v t it. 

• H £ ^(3)c0i#-^-, tAX hiBHX>2 

X n 7 t>?/3>3-F TTSte L fcfefct * £ i * { T- £ i t. 


(9) PAINT* 

»£3iifcfewi3< Ifijesitfcfe-Clfc') it. 


PAINT 

(X,, Y t ) 

C, <*&5 e&> (, 

A 

_ 

STEP (X, Y) 


J 


PAINT*£# < Nw&*{±, i k<7> t is ») ft. 

















• m.R&’Cfmhtitzffiawot, ns (x, y) 
nt. 




• ns(csTEP^^i-.i. tt. 

•PAINT^Tfprafe^M?)-i ttl if. f£L<f±, l J7TV>Xvij.7/^#Il 
TT?V'. 


® SIN wm 

JEKfflL (^M >) *5-Lit. 








SIN 

V 

(<m^;>) 

_y 

siNMm^# < «pwtt*i±, jfcw i *i T'-r. 


•m.^ty'JT'y (0~2*) 


© cosMm 

&&«[ (:HM V) *4-Lit. 

-1 j -- 

cos (<«» 

___ j 

COSMft£* < #<soffiftl±, It?) t is 0 -pl\ 


•Wi7y'T> ( 0 ~ 2 tt) 


Ill 
















































































< f"-f x 9 7 t -i 1\ 

I& 0 fl<7)£ 0 t£t) x r>fz. □ft-j}'£; M 5L L ^ 
■t. 























IS 1 6n 


ZZX’li, .y t°A T' 'f X 7C7)®V^(CO^X^^'^ L «t 7. 

m 7?-f JU—Jt*0>*jft/WB!l 

3#t, 7’a/7A^7nyh , -(f'( X?fct&|ftLfc 9, 7'7A^±fe 

oil), SAVE#, LOAD^tfOft^^lco^TISiaflL^ LA. 
;;m7n 7 f< T A X7Af&ffi£;aAV'&77M^X>-||f|tCO^AI£Bf]L£ L J: 7. 

• FILES*L> «t V'LFILES* 


7a .y t’4 r'A X ?c07r FILES^^T. 7 a .y h° 

^ Ta x^-t 7 nt, &x>t#A3--A* LTT$^. 

FILES f^T 

iSffl(c7 7 -I ;PX)—L Aia. 

i/:, 7 7'f/l'-iMA) LFILESTt^fg^JI-. 

m 


LFILES 


m 7 T’-f 7U^(7)5g!g 

7 o 7 h' /( T A X 7±c7)7r 4 ’ ttfk >) it. ^X>i§-g-, 

NAME#TTfB#A^Et&.L ttfTh it. TTEST1J TKEISANJ t^7&m 

izfrz.&t§it, ?k<7)Wu,zt—Xi}Lit. 

NAME “TEST 1” AS “KEISAN” (^T 
(3) yr'f^co&m 

7 0 .y t°A Ta x ?±<7)7 t A ^-C^Wtc^ro tz t<7)£glj|5£t &*&£-, KILL3IA J: oTff 
V'4-t. TTEST2J i ^ ? t’d fc i I li, >kx>ffilz t — tii Lit. 

KILL “TEST2” 


m 


[1 7 t -t - Ji'CD&M 

7 D .y t° a Ta X 7 ±x> 7 r 4 £SET* £1S o Ximt izt w? hit. t «li i±, 
77 I ^iKlLLXtmtliZmi: L tz 9 ' 7 7 4 ^^flL A »), 7 r -f ;nt>HglJtfOM«c7)^ 
V'f-^StSa^OLt, h 77';u$r^a$^v^J: 7 izt&fzthVt. 1 R«7o .y tM£ 

L 21. 

SET 1, “P” f^T 

#>S ! t#®<7)7 r 'f 'U-AltftfiL A^±|r£-, f5iJi.fi", TDATA1J 7 r 4 >i'£i%WLt&%i&li, 
IkntfllzlfcfeLit. 


SET “1 : DATA1”, “P” 
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% 2 in <£ < *9 Mtfc 


BASICS(i, Lfc. M$c<7>dG, TABHicic 

owa±2 3E-C, EOFHic(co^t(± 3*-C", LEFTS, RIGHT$W#M«5cfcov^T(i 5 $T, 
£G(c, SIN, COS, WINDOW, VIEWW-g-M&CoV'-tJi 6*T"^AT# 4 L£. 

;;rn ±9m^m^Tmz 4 < In. 

11 attain**]* (DATESMISt, TIMES HI] ISO 
/o 7*7 A c^fllTt- lot, i* ? ^) 0 SI - . B # £ f# 2> tf) K 14 

DATESMic, «FM«rf»SfcACI±TIME$H#c*fl!V'i-f. L 4 / 

? date$ (<)J ] 

? timeS [ <JJ ] 

$f£f-(4 * u > £ tlX V' 4 T. - ct)B#H-(±®I^OFFIc L T b v> 

it.tt^b, —^IEL^B#^J^-fe y h l-ftli'J: RBft^S#» ( ilotV'5 


mA. 

■*23 C3 1 


& G£ s’} -TIEL V' Btt/u#4'J* f -fe ■■/ K*liT. 
dateS = “82/10/10” 
time$= “10 ’ 00 ! 00” 


© 


□ X*ai?** »**»«£**.* (VALMiSt) 

Sc^li, l&mt 1X5-th t, *#£«*. 4-fc A,. ttfrfe, ^«t£ffiHH4if£ 41444 


/L . 

A$= “100” : B =A$ + 10 

vALMtt-e-r. -tf^it# 14 , 

i iz-fix (4'T"# 41". 

A$= “100” : A = VAL (A$) : B = A + 10 

b L, </^i|> t, +,-,&&tt^:fc** , *4it-CV'Si»ifcl4 0 £*•)*-*-. 

4 1 x x (4 $RII> £ ix 41". 
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&t> 0 tc 


£7, N 88 - 0 BASIC (86) WH£ttofc7'n7? $ >7t^&9<0 

ifSSrftfcdi iSV'it. 

PC-9800 ^ U - 7'«- V 7;u 3 > h’ a. ■- 7 It , 0 *H, 77 7 4 >y ?, mu(c j: & iiffl * t K < 
fiir'tli' b ZIX, -n^c7)^tE(i-t^TN 88 -H^BASIC (86) 

iz X Z ii'TI £ t. $#T'^/C£'£Pi$£j-— J f— x'-v— jlT-'P, ')7rv 

yxv^a7;H:J: 0 3 <t 0 - i SrSX/C^Ai-fc 

L. 
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